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Editorial—i 



Liebe Leser, 

“the same procedure as every year“ könnte man nach den anstrengenden 
Messetagen der diesjährigen CeBit in Hannover resümieren. 

Die weit über 3000 Aussteller hatten nur wenig Neues, dafür aber 
konzentriert sehr viel Interessantes zu bieten. 

Auf einer solch gigantischen Computerausstellung gilt es natürlich, den 
Überblick zu behalten. Alles sehen kann man sowieso nicht, spätestens die 
eigenen Füße machen selbst dem hartgesottensten Besucher irgendwann einen 
Strich durch die Rechnung. 

So bleibt nur der Weg zu den interessantesten Ausstellern, die man sich in der 
Regel vorher schon ausgesucht hat — der Rest wird im Vorübergehen 
mitgenommen. 

Zwei Dinge waren besonders auffällig: Als Grafikstandard wird sich wohl 
endgültig VGA durchsetzen, und die Jagd der Geschwindigkeitsrekorde hat 
mit einem 42,5 MHz (!) getakteten AT wohl noch kein Ende gefunden. 

Schnell, schneller, am schnellsten — hoffentlich bleiben Qualität und Service 
da nicht auf der Strecke. 

Sollte dies jedoch der Fall sein, könnte man die Einführung einer 
Geschwindigkeitsbegrenzung fiir PCs ernsthaft in Betracht ziehen, oder??? 


Herzlichst Ihr 



Stefan Ritter 
Chefredakteur 
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I—Aktuell 




nahm, am Stand würden massenweise 
80386 er Prozessoren verschenkt... 


Auch die Wettbewerbe fanden regen 
Zuspruch, immerhin war ein 286er 
AT-Computer zu gewinnen, und die 
Programme, die als Preise ausgesetzt 
am Stand lagen, waren auch nicht 
ohne. Somit war der DM V-Stand jeden 
Tag von vielen Besuchern umlagert. 


Ataris neuer Kleinst-PC 


Einen kompletten PC im Taschenfor¬ 
mat gab es bei Atari zu sehen. Das klei¬ 
ne Maschinchen ist kaum größer als die 
bekannten BASIC-Taschencomputer, 
bietet allerdings vollen MS-DOS-Stan- 
dard und kann im RAM-Bereich bis auf 
640 kByte aufgerüstet werden. 


Der DMV verteilte Chips 

Der DMV-Verlag war dieses Jahr mit 
einem eigenen Stand vertreten. Großes 
Zugpferd war bei den Besuchern die 
Verteilung kostenloser Tüten mit Pa¬ 
prikachips einer bekannten Knabberar¬ 
tikelfirma aus der Pfalz. Die Chipsak¬ 
tion lief so überraschend gut an, daß 


Abb. I: Dicht umla¬ 
gert war jeden Tag 
der Stand des DMV. 
Aber nicht nur Hard- 
und Software fanden 
ihre Interessenten, 
auch die täglichen 
Verlosungen und 
Massen an Knabber¬ 
chips lockten viele 
Besucher an. 


’ATARI PC Folio’, so nennt sich der 
kleinste MS-DOS-kompatible Compu¬ 
ter der Welt. Die Maße dieses Zwerges 
unter den Riesen betragen 18 cm x 10 
cm x 2,7 cm, und sind fast unglaublich. 
Damit nicht genug, besitzt der Folio im 
ROM sogar noch fertig verwendbare 
Programme, wie ein 'Lotus 1-2-3’- 
kompatibles Kalkulationsprogramm, 
einen Texteditor, eine Adreßverwal- 
tung und einen Terminkalender. Als 
Speichermedium dienen sogenannte 
Memory-Cards. Diese wie Disketten 
zu benutzenden Cards verfügen über 
einen Speicherplatz von 32, 64 und 128 
kByte. Der PC Folio kann außerdem 
völlig unabhängig vom Stromnetz be¬ 
trieben werden. Das Grundgerät ent¬ 
hält 128 KB RAM (aufrüstbar auf 640 
KB), 256 KB ROM, einen Intel 
8088-Prozessor, der mit einer Taktfre¬ 
quenz von 4,9 MHz läuft. Die gesamte 
PC-Peripherie (Drucker, Floppy, 
Harddisk etc.) kann über ein zusätzli¬ 
ches Interface angesteuert werden. 


Wissen Sie, wo man sich die interessantesten Einblicke in die Welt der Com¬ 
puter und gleich noch die größten Blasen an den Füßen holen kann? Ganz 
klar, auf der CeBIT, Hannovers Aushängeschild für Informationstechnik. 
Wenn Sie zu denen gehören, die vom 8.3. bis 15.3.1989 nicht auf dem Mes¬ 
segelände in Hannover waren, so haben Sie jetzt Gelegenheit, Wissenswer¬ 
tes, Lustiges und Nachdenkenswertes zu erfahren. 


Messe-Gigantomanie 

3180 (in Worten dreitausendeinhun- 
dertundachzig) Aussteller drängten 
sich dieses Jahr auf der CeBIT in den 
Hallen zusammen, um ihre Neuheiten, 
Neuerungen oder einfach nur ihre Pro¬ 
duktpalette vorzustellen. Insgesamt 
über 500000 Besucher versuchten ver¬ 
zweifelt, dieses Riesenangebot inner¬ 
halb einer Woche abzuarbeiten (was 
wohl den wenigsten gelungen sein 
wird); damit stellte die CeBIT in die¬ 
sem Jahr ihre eigenen Rekorde ein. 


am Ende nicht mal die anwesenden Re¬ 
dakteure eine Tüte bekamen. Diejeni¬ 
gen, die vorsorglich eine Tüte im 
Handgepäck verstaut hatten, mußten 
sie mit Lanzen verteidigen. Soweit lief 
alles ganz gut, bis auf einen Besucher, 
der sich bitterlich beklagte, weil er an- 


CeBIT 89 - 

Streß und Staunen 

Eindrücke von der größten Computer¬ 
messe der Welt 
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Aktuell—| 


Tagungszentrum neu eröffnet 

Pünktlich zu Messebeginn konnte das 
neue Tagungszentrum eröffnet wer¬ 
den, ein Neubau aus Beton und Glas, 
aufgehängt an Stahl und aufgestellt auf 
37 Säulen. Nach Messeangaben wiegt 
das Ungetüm 100000 Tonnen, die sich 
auf eine Länge von 224 Meter vertei¬ 
len. Ganz schön imposant, allerdings 
hat der Kasten mehr Ähnlichkeit mit ei¬ 
ner Seilbahn als mit einem Tagungs¬ 
zentrum. 

So klein und schon UNIX... 

Die Meldung verbreitete sich wie ein 
Lauffeuer: Zwei Knirpse von 10 und 
12 Jahren kamen zum Stand eines be¬ 
kannten Ausstellers und änderten in 
Minutenschnelle das Zugangspasswort 
zum UNIX-System. Das Beste kommt 
jedoch noch: Die beiden gingen auch 
noch zu den Mitarbeitern und bemerk¬ 
ten dort ungeniert, daß sie das Pass¬ 
wort gegen einen kleinen Obulus erfah¬ 
ren könnten. Manchem Aussteller wird 
nach dem Hören dieser Story wahr¬ 
scheinlich das Grinsen im Gesicht ein¬ 
gefroren sein, zeigt die Geschichte 
doch, wie sicher eine Sicherheitsabfra¬ 
ge sein kann. Unsere Meinung dazu: 
Hochachtung, Jungs! Durch Aktionen 
wie diese kommt so mancher Sicher¬ 
heitsexperte vom hohen Roß wieder 
herunter. 

LC-Display in Farbe 

Auf der CeBIT konnte man erstmalig 
einen farbigen LC- (Liquid Cristal - 
Flüssigkristall) Bildschirm bewun¬ 
dern, und dies gleich in EGA-Auflö- 
sung mit 16 Farben. Zum Vergleich 
stand direkt daneben ein normaler 


EGA-Monitor. Seit unsere Redaktions¬ 
mitglieder den Unterschied gesehen 
haben, wird auf die Ausgaben des Ver¬ 
lages besonderes Augenmerk gerich¬ 
tet. Das LC-Display ist dem herkömm¬ 
lichen Bildschirm in vielerlei Hinsicht 
überlegen. Ein flimmerfreies Bild und 
kontrastreiche Farben sind nur zwei 
Gründe, warum dem EGA-LCD eine 
große Zukunft vorausgesagt werden 
kann. Einzig der Preis bewegt sich im 
Augenblick noch in luftigen Höhen, 
aber man weiß ja, wie schnell sich so 
etwas auf dem Computermarkt ändern 
kann... 

CompuCamp für junge 
Computerfans 

In Halle 19 befand sich diesmal das 
CompuCamp, ein Treff für jugendliche 
Computerfans. Hier wurden Anwen¬ 
dungen aus Schulen, Ausbildungsstät¬ 
ten und auch private Anwendungen wie 
DFÜ und Meß- und Regeltechnik ge¬ 
zeigt. Interessant ist es zu sehen, wie 
manche Firmen ihre Auszubildenden 
am Computer anlernen, ein Zeichen 
dafür, daß sich auch die Ausbildung in 
weiten Teilen der Arbeitswelt wandelt. 
Irgendwie war so manches im Compu¬ 
Camp wesentlich interessanter, als bei 
den 'seriösen’ Ausstellern... 

Die Zukunft heißt PC 

Wem es bisher noch nicht klar war, 
dem ist spätestens bei der CeBIT 89 ein 
Licht aufgegangen: Die Zeit der 8-Bit- 
Rechner ist, was vor allem den kom¬ 
merziellen Bereich anbelangt, vorbei. 
Der Schwerpunkt liegt eindeutig bei 
den großen Personalcomputern, all¬ 
seits unter dem Kürzel AT bekannt. 


Es gab kaum einen Computerherstel¬ 
ler, der nicht den einen oder anderen 
AT mit VGA-Monitor zeigte. Durch 
die rasante Entwicklung der Prozesso¬ 
ren und die fortschreitende Miniaturi¬ 
sierung ist auch nicht zu erwarten, daß 
diese Entwicklung stehen bleiben wird. 
Als zweiter Faktor sind die Preise für 
solche Computer zu nennen. Einen gu¬ 
ten XT mit Festplatte bekommt man 
heute schon fast für das Geld, was man 
vor einigen Jahren noch für einen CPC 
464 oder C64 hinblättern mußte. In 
diesem Sinne kann man auf die CeBIT 
im Jahre 2000 gespannt sein. 

Die nächste Messe kommt 
bestimmt... 

Am letzten Tag wird wohl bei so man¬ 
chem Aussteller die Freude riesig ge¬ 
wesen sein, nicht nur wegen der abge¬ 
schlossenen Geschäfte, sondern wohl 
auch darüber, den eigenen Füßen min¬ 
destens eine Woche Urlaub zu geben. 
Auch die DMV-Mannschaft freute sich 
auf ein ruhiges Leben nach der Messe. 
Alle Preise waren vergeben (den AT 
gewann ein zwölfjähriger Junge, wir 
wünschen ihm von hier aus nochmals 
viel Vergnügen mit seinem neuen Be¬ 
sitztum), die Chips waren restlos ver¬ 
tilgt oder in den übrigen Hallen ver¬ 
teilt, der normale Alltag konnte wieder 
anfangen. Wenn man ein Fazit über die 
vergangenen Tage ziehen will, so 
bleibt einem nur folgendes zu sagen: Es 
gab nicht viel Neues, aber sehr viel In¬ 
teressantes. Und eines ist klar, auch 
wenn so manch einer das Wort Messe 
nach acht Tagen nicht mehr hören 
konnte, so fahrt nächstes Jahr doch 
wiederjeder hin. 

Bis dann! 



Abb.2: Ataris neuer Kleinstcomputer. der 'Folio'. MS-DOS im Miniatur¬ 
format 



Abb.3: Etwas größer in den Abmessungen war dieser Laptop auf dem To¬ 
shiba-Stand. Man stelle sich einmal vor: Man möchte das Directory sehen 
und kann dabei gleichzeitig Jogging machen... 
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I—Briefe 


An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten, Pro¬ 
grammierproblemen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir 
bemüht, alle Leserfragen zu 
beantworten. Doch haben 
Sie bitte Verständnis, daß wir 
nicht alle eingehenden Briefe 
persönlich beantworten kön¬ 
nen. Oft erreichen uns meh¬ 
rere Briefe zum gleichen 
Thema, einer davon wird 
dann stellvertretend für alle 
in unserer Zeitschrift beant- 
wortet. |hre pc-Redaktion 

PS: Die Redaktion behält sich \ 

Form wiederzugeben. 


In eigener Sache 

Die Redaktion der PC 
AMSTRAD freut sich natür¬ 
lich über jeden Brief, der uns 
erreicht, und wir versuchen 
jedem so gut zu helfen, wie 
wir können (auch wir reißen 
uns gerne sechs Beine für Sie 
aus!); trotzdem möchten wir 
noch einmal darauf hinwei- 
sen, daß eine Beantwortung 
nur dann möglich ist, wenn 
folgende Faktoren gegeben 
sind: 

— Ihre Adresse befindet sich 
außer auf dem Umschlag 
auch auf dem Brief selbst. 

— Zu Ihrer Anfrage geben 
Sie uns bitte genaue Infor¬ 
mationen darüber, wel¬ 
chen Computertyp und 
welche zusätzliche Peri¬ 
pherie Sie benutzen. 

— Neben den benutzten Ge¬ 
räten geben Sie uns eine 
möglichst genaue Fehler¬ 
beschreibung, einen mög¬ 
lichst genau umschriebe¬ 
nen Wunsch oder eine 
möglichst informative 
und genaue Hilfestellung, 
falls Sie zum einen oder 
anderen Thema eine Ant¬ 
wort parat haben. 

— Programme, die nicht von 
der PC AMSTRAD Inter¬ 
national stammen, lassen 
sich meist nur unvollstän¬ 
dig überprüfen, bei kom¬ 
merziellen Programmen 
lohnt es sich wahrschein¬ 
lich, sich erst an den An¬ 
bieter zu wenden. 


Neue Durchwahlnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 - 20.00 Uhr stehen Ih¬ 
nen zur Verfügung: 

Claus Daschner (CPC) 

ts (0 56 51) 80 09 -16 

Jürgen Borngießer 
(CPC, PC) 

o(0 56 51)80 09 -17 

Ralf Schößler (PCW) 

o(0 56 51)80 09 -18 

, Leserzuschriften in gekürzter 


Um nicht mißverstanden zu 
werden: Wir verlangen 

nicht, daß Sie Ihren Leser¬ 
brief für den Pulitzerpreis 
vorschlagen sollen; diese In¬ 
formation soll uns lediglich 
die Arbeit ein bißchen er¬ 
leichtern. 

Nicht nur wir werden es Ih¬ 
nen danken, sondern auch 
die Leser, die nach Ihnen 
kommen. 

In diesem Sinne, Ihre 
PC AMSTRAD Redaktion 

Hinweis zu Soundmana¬ 
ger (Heft 4/89) 

Das in Heft 4/89 veröffent¬ 
lichte Programm “Soundma¬ 
nager“ ist nicht, wie angege¬ 
ben, für den Kassettenbe¬ 
trieb geeignet. Wir bitten, 
das falsche Symbol zu ent¬ 
schuldigen. 

Ihre PC Redaktion 

CP/M schaltet nicht? 

Im Juni '88 veröffentlichten 
Sie in Ihrer Zeitschrift ein 
Programm, mit dem es in 
Verbindung mit dem CP/M- 
Schalter möglich sein sollte, 
BA SIC-Programme di rekt 
nach dem Einschalten zu 
starten (Boot-Sector-Start). 
Das Programm läuft auf mei¬ 
nem CPC 6128 jedoch nur 
bedingt, nur ein schneller 
Schaltwechsel erlaubt das 
automatische Booten. Sofern 
ich nicht sofort nach dem An¬ 
laufen der Floppy auf die 
Normalstellung zurückschal¬ 
te, wird bei mir die Meldung 
'Press play then any key ’ 


ausgegeben, und nach dem 
Tastendruck läuft anstelle 
der Diskette das Tape an. 
Meine Vermutungen gehen 
dahin, daß es sich entweder 
bei meinem CPC um ein älte¬ 
res Modell mit anderen Ei¬ 
genschaften handelt (Bau¬ 
jahr 1986) oder daß inner¬ 
halb der DATA-Zeilen Ihres 
Listings Fehler stecken. 
Können Sie mir weiter¬ 
helfen ? 

Andreas Herzog, Hardegsen 

Auch hier scheint es an einer 
anderen CPC-Version zu lie¬ 
gen; wie wir feststellen 
konnten, gab es seltsamer¬ 
weise gerade bei den 86cr 
Modellen des CPC 6128 mit 
der Kombination CP/M- 
Schalter / Bootprogramm 
Schwierigkeiten, obwohl der 
Anschluß des Schalters bei 
allen 6128ern gleich war. 
Die Ursache ist uns leider 
auch nicht bekannt, nur die 
Wirkung: Der Rechner 

springt zuerst in die Tape- 
Routine und dann ins Nirwa¬ 
na. 

Vielleicht ein Fall für die 
CPC-Knobelfreunde? 

(Red.) 

Mini Office und die Um¬ 
laute 

Nach Ihrer Software-Review 
des Programmes ’Mini 
Office II' aus Heft 2 '89 habe 
ich mir dieses für meinen 
CPC 464 zugelegt, ich bin 
auch sehr zufrieden damit. 
Nur eines stört mich: Die 
deutschen Umlaute bekomme 
ich leider nicht auf den Bild¬ 
schirm. Bisher helfe ich mir 
dadurch, daß ich die deut¬ 
schen Sonderzeichen eingebe 
und bei meinem Drucker, ei¬ 
nem EPSON LQ 500, den 
deutschen Zeichensatz akti¬ 
viert habe. Dies funktioniert 
auch soweit ganz gut, bis auf 
das ß’, denn dieses kann 
durch die. Doppelbuchstaben 
’sz ’ nicht dar gestellt werden, 
da das englische Äquivalent 
mit einer Textfunktion belegt 
wurde. 

Da ich kein großer Program¬ 
mierer bin, würde ich mich 
freuen, wenn Sie eine Abhilfe 
für mein Problem haben. 
Kai-Uwe Röseler, Hannover 

Zu diesem Fall möchten wir 
auf unsere Einleitung hin¬ 


weisen. Wir sind leider nicht 
in der Lage, Programmände¬ 
rungen bei Fremdprogram¬ 
men vorzunehmen, vor al¬ 
lem nicht bei kommerziellen 
Programmen, hier fehlt uns 
a) die Zeit und b) die Mög¬ 
lichkeit, solche Programme 
auf bestimmmte Anpassun¬ 
gen umzuschreiben. Bei An¬ 
fragen zu solchen Program¬ 
men ist es immer sicherer, 
sich zuerst an den Hersteller 
oder Vertreiber zu wenden. 
Sollte dies nichts nützen, 
bleibt nur noch der Weg über 
die Leserbriefe und Compu¬ 
terbesitzer, die dieses Pro¬ 
blem gelöst haben. 

(Red.) 

Virus auf dem CPC 

Schon seit vielen Jahren bin 
ich ein eifriger Leser Ihrer 
Zeitschrift, und so habe ich 
auch viele brauchbare Tips 
erfahren. Leider gehöre ich 
nicht zu den jüngeren Com¬ 
puterfans, welche mit dem 
Computer herumexperimen¬ 
tieren und damit ihre Fehler 
selbst beheben können. Den 
Computer benutze ich haupt¬ 
sächlich zur Textverarbei¬ 
tung, zum Erstellen und Be¬ 
arbeiten von verschiedenen 
Listen. 

In der letzten Zeit wird soviel 
von Computerviren geschrie¬ 
ben, und so bin ich jetzt et¬ 
was in dieser Hinsicht verun¬ 
sichert. Bisher habe ich noch 
nichts von einem Programm 
für einen CPC-Computer ge¬ 
hört, welches die Viren aus¬ 
findig macht und auch besei¬ 
tigen hilft. Gibt es denn so 
ein Programm ? Oder können 
sich in die Programme der 
CPCs solche Viren nicht ein¬ 
nisten und die Programme 
gefährden ? 

Es wäre sehr schade, wenn 
durch die Viren eines meiner 
Programme zerstört würde. 
Können Sie mir sagen, wo 
ich ein entsprechendes Pro¬ 
gramm zum Auffinden und 
Beseitigen diese Viren erhal¬ 
ten kann ? 

Klaus Pillath, Moers I 

In der letzten Zeit ist soviel- 
über Computerviren geredet 
worden, daß sich die Grippe¬ 
viren schon vernachlässigt 
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fühlen. Manch einer schläft 
während des Programmie- 
rens ein und fällt auf die RE- 
SET-Taste(n) - schuld war 
DER VIRUS! 

Aber im Ernst, Sie brauchen 
sich eigentlich keine Gedan¬ 
ken zu machen, die bekann¬ 
testen Viren sind nur auf den 
16-Bit-Computem (PC, 
AMIGA, ATARI ST) zu fin¬ 
den. Auf dem CPC würde 
ein entsprechender Virus 
kaum ’überlebensfähig’ 
sein, da die 8-Bit- Computer 
vom technischen Aufbau her 
kaum Ansatz für eine Viren¬ 
programmierung bilden. Sie 
sollten jedoch grundsätzlich 
Arbeitskopien von Ihren Ori¬ 
ginalprogrammen machen, 
um völlig sicherzugehen, 
daß Ihre Programme längere 
Zeit in Betrieb bleiben, dies 
aber weniger wegen des 
eventuellen Virenbefalls, 
sondern mehr aus anderen 
Überlegungen, denn ein de¬ 
fektes Laufwerk richtet mei¬ 
stens den gleichen oder mehr 
Schaden an als jeder Virus. 

(Red.) 


Druckerausgabe unter 
MicroDesign 

Wie Sie in Ihrem Heft 7/88 
sehr richtig ausführten, kann 
man das Programm Micro¬ 
Design sehr schnell in den 
Griff bekommen. Leider 
habe ich aber bei der Ausga¬ 
be auf dem Drucker das Pro¬ 
blem, daß dieser unter¬ 
schiedliche Vorschübe aus¬ 
führt, wodurch das Bild aus¬ 
einandergezogen wird. Trotz 
aller möglichen Änderungen 
im Programm DRUCKER.BAS 
ist es mir bis jetzt nicht ge¬ 
lungen, diesen Fehler abzu¬ 
stellen. 

Auch das nochmalige Studi¬ 
um Ihrer Druckertips und ein 
aufinerksames Verfolgen der 
Leserbriefe, die ich für sehr 
aufschlußreich halte, erga¬ 
ben keinen heißen Tip zu die¬ 
sem Problem, weshalb ich 
mich nun direkt an Sie wen¬ 
de, da man mir auch beim 
Anbieter des Programmes 
nicht weiterhelfen konnte. 
Können Sie mir helfen ? Mei¬ 
ne Gerätekonfiguration be¬ 


steht aus einem CPC 6128 
und einem NLQ 401. 

Stefan Wöllner 
Haar 

Hier ist wieder das leidige 
Thema ’ Druckeranpassung 
in Verbindung mit dem 
EPSON-Standard’ an der 
Tagesordnung. MicroDe¬ 
sign ist auf EPSON-kompati- 
ble Drucker zugeschnitten, 
wozu der NLQ 401 leider 
nicht gehört. Deshalb kön¬ 
nen wir Ihnen, so leid es uns 
auch tut, nicht weiterhelfen 
und geben Ihren Brief auf 
diesem Wege weiter. 

(Red.) 

CP/M+ und das achte Bit 

Ich besitze schon seit länge¬ 
rem einen CPC 6128, in den 
ich die von Ihnen vorge¬ 
schlagene Änderung der 
Druckerschnittstelle einge¬ 
baut habe (8-Bit-Centro- 
nics). Die Software-Installa¬ 
tion der Änderung in BASIC 
oder CP/M 2.2 ist mir recht 
leicht gefallen, große Pro¬ 
bleme habe ich jedoch mit 
der Installation unter 
CP/M-Y. Wie kann man also 
das achte Bit unter CP/M + 
initialisieren ? 

Stefan Malewski 
Wuppertal 1 


die Floppyprogrammierung 
ein sehr interessantes Thema 
ist, habe ich jeden Teil dieser 
Serie mit Begeisterung ver¬ 
schlungen. 

Volker Riedel 
Belm 

Artworx und CPA-80 (p) 

Um Artworx auch mit dem 
Drucker CPA-80 betreiben 
zu können, sollte man folgen¬ 
de Schritte nachvollziehen: 
MEMORY&7FFF 
LOAD “ART¬ 
WORX. PRG",&8000 
POKE &8008.&4B 
PO KE &8009.&7F 
POKE &800A,&02 
POKE &800B,&00 
SAVE “ART¬ 
WORX. PRG“,B,&8000, 
&J5C0 

Wenn der Zeilenabstand 
Schwierigkeiten bereitet, zu¬ 
sätzlich den Drucker-Start¬ 
code für für Zeilenabstand in 
&8004 und die Abstandgrö¬ 
ße in &8005 poken, danach 
wieder abspeichern. 

LOAD “ARTWORX. BAS “ 
DELETE 280-490 
SAVE “ARTWORX.BAS“ 
Nun können Sie ohne Proble¬ 
me mit Ihrem CPA-80 und 
Artworx arbeiten 

Horst Heinrich 
Verden 


-AMSTRAD-Computer- 

-Software + Zubehör- 

AMSTRAD-Computer auf Anfrage 

JOYCE-Zubehör: 


Farbband 8256/8512 

12,90 

Papierführung 

2950 

3“-Markendisketten 10 Sl 

59,90 

Farbband 9512 

17.95 

Typenräder 9512 

25,00 

Typenräder SD15 

25,00 

Diskettenbox f 50 Disk 

16.95 

3D Chess 

49,90 

GSX-Grafik-Treiber 

49,90 

PC-Zubehör: 


5 1/4"-Disketten 2D 10 Stück 

6,95 

3.5“-Disketien MF 2DD Stück 

2,50 

20MB Filecard 

698,00 

Druckerkabel par 

17,70 

STAR LC10 (deutsch) 

570,00 

STAR LC24/10 (deutsch) 

890,00 

Druckerständer 

29,95 

Farbband LC10 

15,95 

Farbband NEC P 2200 

16,95 

Abdeckhaube Tastatur 1512/1640 

16,95 

Genius Dyna Mouse 

135,00 

128 KB RAM-Erweiterung 

198.00 

2. Laufwerk 3 1/2- 

459,00 

Turbo 959-Joy-Stick 

29,95 

Hafteliketten endlos 100 Stück 

895 

DOS-Lernprogramm 

49,70 

TfextMaker 

148,00 

Finanzbuchhaltung 

398.00 

Fakturierung 

398.00 

Weitere Preise auf Anfrage! 


Lieferung per Nachnahme oder Voraus- 

kasse (Versandkostenpauschale 11,40 

pro Paket) 


Kosmalla & Partner 

Datenverarbeitung GmbH 

Bliesstr. 5, 6700 Ludwigshafen 

Tel.: 0621-51 9749 




NEW’s SOFTWARE Karl-Heinz Klug 

Wüffratherstr. 8 
4000 Düsseldorf 1 

Tel. 0211/6790925/676201 

Bitte nur Händleranfragen! 


Auch diese Frage geben wir 
an die Leser weiter. 

(Red.) 

Der Diskette aufs Byte ge¬ 
schaut 

In der Ausgabe 11/88 hat 
sich in dem oben genannten 
Beitrag ein kleiner Fehler 
eingeschlichen. Im Listing 1 
auf der Seite 27 wird in den 
Zeilen 670, 860 und 1050 
fälschlicherweise die Adres¬ 
se #BE4C als Zeiger auf 
den BPB Drive A benutzt. Da 
an dieser Adresse aber die 
ersten Bytes der Resultats¬ 
phase stehen , muß in den ge¬ 
nannten Zeilen folgendes 
stehen: 

LY IY,(#BE42) 

Nun läuft das Programm 
ohne Einschränkungen. 

Ich möchte auch noch ein 
großes Lob an den Autor die¬ 
ses Beitrages loswerden. Da 


Probleme mit Fremd- 
floppy 

Ich besitze einen CPC 6128 
und habe mir vor einigen 
Wochen eine REMEX Floppy 
RFD 480, vertrieben durch 
die Firma Biihler Elektronic, 
zugelegt. Leider habe ich 
nun einige Probleme damit. 
Mein Problem liegt darin, 
daß mir die benötigten Jum¬ 
per-Belegungen sowie die 
PIN-Belegungen des Busan¬ 
schlusses nicht bekannt sind. 
Bei dem oben genannten 
Laufwerk handelt es sich um 
eines mit zwei Schreib- 
Lese-Köpfen. Ist dieses Lauf¬ 
werk überhaupt am CPC an¬ 
schließbar? Wenn Sie oder 
einer der Leser mir helfen 
könnten, wäre ich sehr froh. 

Rolf Huck 

Igersheim 

Außer der Angabe, daß das 
angeschlossene Laufwerk 
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über einen standardmäßigen 
Shugart-Bus verfügen muß, 
können wir Herrn Huck lei¬ 
der keine Angaben machen, 
da dieses Laufwerk bei uns 
in der Redaktion unbekannt 
ist. Hier bleibt uns ebenfalls 
nur der Weg, Sie, liebe Le¬ 
ser, selbst anzusprechen. 
Sollten Sie also Informatio¬ 
nen über das Bühler-Lauf- 
werk haben, schicken Sie sie 
uns zu. Wir werden sie ein¬ 
mal an Herrn Huck weiter¬ 
leiten und zweitens in unser 
Archiv aufnehmen, um wei¬ 
teren Fragestellern helfen zu 
können. 

(Red.) 

CONTEXT und Seikosha 
SL-80 IP 

Große Frage: Wie kann ich 
meinen Seikosha SL-80 IP 
unter CONTEXT auf einem 
CPC 6128 benutzen? Ich 
habe mir den SL-80 IP 
hauptsächlich deswegen ge¬ 
kauft, weil ich oft die spani¬ 
schen Schriftzeichen benöti¬ 
ge, und die sind auf dem 
NLQ 401, den ich ebenfalls 
besitze, leider nicht ent¬ 
halten. 

Hans-Peter Böhnke 
Kiel 

Hiermit geben wir auch die¬ 
sen Brief an die Leserschaft 
weiter. 

(Red.) 

Verwendung von EOF 

Bei der Programmierung ei¬ 
nes Vokabeltrainers ergab 
sich die “Schwierigkeit“, 
daß die eingegebenen Voka¬ 
beln auch auf Diskette ge¬ 
bracht werden sollten. Das 
Schreiben und Lesen funktio¬ 
niert jedoch nur, wenn ich 
am Anfang einer Datei die 
entsprechende Satzlänge an¬ 
gebe, das bedeutet die An¬ 
zahl der eingegebenen Voka¬ 
beln. Von einem Bekannten 
habe ich erfahren, daß dies 
durch den Befehl EOF um¬ 
gangen werden kann. Stimmt 
dies ? 

Frank Brunner 

Köln 

Speichern Sie die Daten ganz 
normal ab (ohne Satzlänge). 
Für das Einlesen können Sie 


nun folgendes Programm 
verwenden: 

10 OPENIN“NAME.EXT" 

20 WHILE NOT EOF 

30 LINE INPUT #9, DEUTSCHS(x) 

40 LINE INPUT # 9, ENGLISCH$ (x) 

50 x=x+l 

60 WEND 

70 CLOSEIN 

Nun werden alle Vokabeln 
eingelesen 

(Red.) 

Siemens 9005 Tinten¬ 
strahl-Drucker 

Seit einiger Zeit bin ich Be¬ 
sitzer des obengenannten 
Druckers. Da das entspre¬ 
chende Handbuch nicht auf¬ 
zutreiben ist, fehlen mir jeg¬ 
liche Unterlagen, um z.B. 
eine Hardcopy auf den Bild¬ 
schirm zu bekommen. Kön¬ 
nen Sie mir weiterhelfen ? 

Detlef Olm 
Bochum 

Da wir über diesen Drucker 
auch keine Unterlagen besit¬ 
zen, möchten wir diese Bitte 
an unsere Leser weiter¬ 
geben. 

(Red.) 

Tip zu Mallard-BASIC 

Ein kleiner Tip für alle, die 
in Mallard-BASIC program¬ 
mieren: Hat man eine Zeile 
eingegeben und braucht den 
Inhalt dieser noch in einer 
anderen, drückt man einfach 
die Pfeiltaste nach links, und 
die Zeile erscheint ein zwei¬ 
tes Mal am Bildschirm. Al¬ 
les, was nun noch geändert 
werden muß - auf jeden Fall 
die Zeilennummer —, kann 
jetzt erledigt werden. 

Hansjörg Traut 
Kressbronn 

Flüsternder Drucker 

Setzt man die Originalklappe 
des Joyce-Druckers auf, 
dürfte auffallen, daß im ge¬ 
schlossenen Zustand hinten 
noch ein Spalt frei bleibt. 
Durch diesen Spalt kann nun 
ein Blatt geführt werden. 
Also: Klappe abnehmen, 
Blatt einziehen (mit Hilfe ei¬ 
ner nachgekauften Einzel¬ 
blatt-Führung ist es gleich 
gerade eingelegt), Klappe 
wieder aufsetzen und so 
schließen, daß das zu be¬ 


druckende Blatt hinten her¬ 
aushängt. Und der Flüster¬ 
druck kann beginnen. Zuge¬ 
geben, das Hin und Her mit 
der Klappe und Papierfüh¬ 
rung ist etwas umständlich, 
und rattern tut ’s danach 
noch genug. Der Umbau 
dauert jedoch nur Sekunden, 
die sich für die Ohren 
lohnen. 

Roland Schaffrath-Prechte! 

Krefeld 

Tip zu DR.LOGO 

Die Diskettenmeldung unter 
DR. LOGO läßt sich ganz 
einfach ein- bzw. aus¬ 
schalten: 

2ttype word char27“0 
schaltet diese aus, während 
2ttypeword char27“l 
sie wieder einschaltet. 

Alexander Gries 
Eschwege 

Programme sichern 

Nachdem ich ein Programm 
geschrieben und an einige 
Freunde weitergegeben hat¬ 
te, erfuhr ich nach einiger 
Zeit, daß genau dieses von 
jemandem in einer Anzeige 
angeboten wurde. Noch ein¬ 
mal sollte mir dies nicht pas¬ 
sieren. Gesagt, getan: Nach 
einigen mißlungenen Versu¬ 
chen, einen geeigneten 
Schutz einzubauen, fand ich 
folgende POKE-Befehle 
heraus: 

POKE 370,0:POKE 371,0 
Diese beiden Befehle bewir¬ 
ken, daß die erste Zeile bei 
einem List-Befehl nicht ange¬ 
zeigt wird. Als sinnvoll hat es 
sich nun erwiesen, die erste 
Zeile mit einer Nummer von 
1 bis 9 und die restlichen Zei¬ 
len dann in Zehnerabständen 
weiter zu numerieren, da so 
kein Verdacht auf einen ent¬ 
sprechenden Copyright-Ver¬ 
merk besteht. 

Rolf Bütter 
Obersdorf 

Zwei Bildschirme 

Für ein selbstgeschriebenes 
Programm benötige ich ei¬ 
nen “zweiten Bildschirm “. In 
diesem sollten alle Funktio¬ 
nen des Programms darge¬ 
stellt werden. Das Problem 


bei dieser Sache ist jedoch, 
daß der alte Bildschirmin¬ 
halt nicht verlorengehen 
soll, d.h., daß der alte Bild¬ 
schirm später wieder ohne 
Probleme eingeblendet wer¬ 
den kann. Haben Sie viel¬ 
leicht eine Routine vorlie¬ 
gen, mit der man dies be¬ 
werkstelligen kann ? 

Frank Brause 
Gelsenkirchen 

Zu Ihrem Problem gibt es 
mehrere Lösungswege: 

1. Sollten Sie einen CPC 
6128 besitzen, und auf dem 
Bildschirm befinden sich nur 
Textzeichen, so können Sie 
diese mittels des COPYCHRS- 
Befehls auslesen und in ent¬ 
sprechende Stringvariablen 
übergeben. Später können 
dann die Variableninhalte 
ausgegeben werden. 

2. Die CPC-Computer besit¬ 
zen eine eigene Routine, um 
den aktuellen Bildschirmin¬ 
halt mit einem anderen aus¬ 
zutauschen. Bedingung hier¬ 
für ist, daß der zweite Screen 
(Ihre Hilfsseite) mit SAVE 
“HILFE. SCR“,b,&c000, 
&4000 abgespeichert wurde. 
Beim ersten Start Ihres Pro¬ 
grammes sollte dieser Bild¬ 
schirm nun ab der Adresse 
&4000 eingeladen werden. 
Durch CALL &BC06,&40 
werden nun beide Bild¬ 
schirminhalte ausgetauscht. 
Diesen Austausch macht 
man später durch CALL 
&BC06,&C0 rückgängig. 

3.Sollten Sie mehr als nur 
eine Hilfsseite verarbeiten 
wollen, können wir Ihnen 
unseren Bildschirm-Kom¬ 
pressor aus der Ausgabe 
6/88 empfehlen. 

(Red.) 

Filecard oder Festplatte 

Im Zusammenhang mit dem 
PC 1640 hört man oft von 
'Filecards', und ich hätte 
gerne Auskunft über die Vor¬ 
teile und Nachteile einer 
’Filecard ’, die mit einer Ka¬ 
pazität von 30 MByte alter¬ 
nativ zur Festplatte angebo¬ 
ten wird. 

Hans Georg Tix 

Köln -Müh Ih eim 

Grundsätzlich gilt: Eine 
Filecard verhält sich im Be- 
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CPC SONDERAKTION 

Heiße Sommerpreise für den Computernachwuchs 



Der ideale Komplettcomputer für den Einsteiger. Mit Farbmo¬ 
nitor, eingebautem Datacorder, 64KB, RAM, BASIC. 

CPC464 COLOUR 579.- 


BTX mit CPC 

BTX-MODUL 464 

BTX-MODUL 6128 

249.-- 

249.- 

Disketten-Zweitlaufwerk 
für CPC464 und CPC6128 

FD1 

299.- 

Serielle Schnittstelle 

RS 232 für CPC464 

149. - 

RS 232 für CPC6128 

149.-- 


Schönschreibdrucker 

EPSON-Kompatibler Matrixdrucker, Druckgeschw. 160 Z/sek., 
eingebauter Traktor. 

DMP2160 399.” 

Anschluß-Modul an C64 

zum Anschluß des DMP2160 an C64/C128 

DMP > C64 149.-- 



Der Bürodrucker, 200 Z/sek. schnell, breiter Wagen, 
eingebauter Traktor, EPSON- & IBM-kompatibel. 

DMP4000 449.- 


Cassetten-Software für CPC464 


Assembler / Disassembler 39*50 

mit ausführlichem deutschen Handbuch 

PASCAL 39.50 

HiSoft Pascal nach Jensen/Wirth 

BASIC 2 39.50 

Lehrgang mit vielen Übungen 

TopCalc 39-50 

Tabellenkalkulation 

HARDCOPY 19-90 

für Epson-kompatible Drucker 

JOYDRAW 29.50 

Malprogramm 

VOKABELTRAINER 39*50 

Sprachenunabhängig 

MATHE-GENIE 1 29-50 

Grund rechenarten 

MATHE-GENIE 4 29.50 

Lineare Gleichungen 


Disketten-Software für CPC6128 


Assembler/Disassembler 59*50 

PASCAL 59.50 

C-Compiler 189-00 

(mit englischem Handbuch) 

FORTRAN-COMPILER 149-00 

(mit englischem Handbuch) 

SUPER CALC 2 79-50 

Tabellenkalkulation (engl.) 

PROFIDATA 98.00 

Dateiverwaltung 

TERMINALSTAR 39-50 

Datenkommunikation 

CPC-TERMY 69.00 

Software für RS232 

VOKABELTRAINER 49-00 

MATHE-GENIE 1 39-50 

Grundrechenarten 

MATHE-GENIE 2 39-50 

Grundrechenarten mit großen Zahlen 

MATHE-GENIE 3 39-50 

Bruch rechnen 

MATHE-GENIE 4 39-50 

Lineare Gleichungen 

SORCERY 19.90 

Berühmtes Computerspiel mit Geisterjagd 

SUPER SPORT 2 39-90 

Spielesammlung mit Autorennen, 

Motorradrennen, Boxkampf 

CYRUS 2 39-90 

Schachspiel 

SHAPE & SOUND 39-50 

Graphik & Musik-Composer 


SchneiderData Computer-Vertriebs GmbH 

Postfach 1341 • D-8050 Freising 
® 0 81 61 / 28 77 • Fax: 0 81 61 / 1 27 63 


Versand per Nachnahme zuzüglich 
Versandkosten. 

Lieferung, solange Vorrat reicht. 
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trieb nicht anders als eine 
’ normale’ Festplatte. Der 
einzige Unterschied liegt 
darin, daß Filecards in einen 
der freien Steckplätze einge¬ 
setzt werden, während Ein¬ 
baufestplatten den Platz ei¬ 
nes Laufwerks belegen. Mit 
Filecards kann man also 
trotzdem über zwei Laufwer¬ 
ke verfügen. 

(Red.) 

640 KByte in BASIC2? 

Ich hatte bisher einen CPC 
464 und habe mir nun einen 
PC 1512 zugelegt. Da ich 
selbst einige Programme in 
BASIC schreibe, war ich 
überrascht, daß ich bei mei¬ 
nem neuen PC weniger Spei¬ 
cherplatz für BASIC-Pro- 
gramme (nur gute 30 KByte) 
zur Verfügung habe als bei 
meinem alten CPC. 

Nachdem ich einige nicht be¬ 
nötigte Programme von mei¬ 
ner GEM-Diskette gelöscht 
hatte, schaffte ich es auf gute 
60 KByte. Also beschaffte ich 
mir eine Speichererweite¬ 
rung auf 640 KByte, in der 
Annahme, diese 128 KByte 
RAM nun auch unter BASIC 
zur Verfügung zu haben. 

Mein Entsetzen war groß, als 
ich feststellen mußte, daß 
sich mein PC zwar jetzt mit 
640 KByte meldete, mir je¬ 
doch unter BASIC immer 
noch nur die 60 KByte zur 
Verfügung standen. 

Von einem Bekannten erfuhr 
ich nun, daß dies eine Eigen¬ 
heit des BASIC2 ist, die sich 
jedoch durch eine Änderung 
auf der Systemdiskette ent¬ 
fernen läßt. Leider konnte 
mir jedoch niemand sagen, 
was wirklich zu tun ist. Bitte 
teilen Sie mir doch mit, was 
ich machen muß. 

Wolf gang Titz 

So leid es uns tut, anschei¬ 
nend gibt es doch keine Mög¬ 
lichkeit, hierbei den zusätzli¬ 
chen Speicher für BASIC2 
zu reservieren. Uns ist je¬ 
denfalls nicht bekannt, wie 
diese BASIC2-’Freundlich- 
keit’ zu umgehen ist. Falls 
jemand von Ihnen einen 


Trick kennt, bitte melden, 
Herr Titz und die Redaktion 
wären sehr dankbar. 

(Red.) 

Rätsel beim PC 1512 

Ich besitze einen PC 15/2 
ohne Speicherweiterung. Als 
ich vor einiger Zeit versuch¬ 
te, mit Hilfe von BASIC2 ein 
META-File zu erzeugen, 
kam, wie en\’artet, die Mel¬ 
dung “GEM-Fehler“. Alles 
schön und gut! Als ich das¬ 
selbe vor ein paar Tagen 
nochmals versuchte, kam 
KEINE Meldung! Sie können 
sich sicher denken, wie ver¬ 
blüfft ich war. 

Übrigens, es funktionierte, 
als ich die Lissajous-Grafik 
aus Heft 3’89 ausprobiert 
habe. Wie ist das möglich ? 

Markus Drexelius 
Usingen I 

Sie können uns glauben, die 
AMSTRAD-PCs mit ihrem 
BASIC2 sind uns nicht 
fremd, trotzdem müssen wir 
diese Frage auch an die Le¬ 
ser weitergeben, da wir Sie 
nicht nachvollziehen konn¬ 
ten. Also, liebe PCler, die 
Hoffnungen ruhen auf Euch! 

(Red.) 

Fehler im Animator 2/89 

Als ich mir in der Ausgabe 
2/89 die Anleitung zum 'Ani¬ 
mator' durchlas, verspürte 
ich ein leichtes Kribbeln in 
den Fingerspitzen. Als ich 
dann weiterlas, wurde es im¬ 
mer stärker, und so hielt ich 
es nicht mehr aus und setzte 
mich an meinen CPC. 

Als ich aber mit dem Abtip¬ 
pen fertig war, mußte ich die 
traurige Entdeckung ma¬ 
chen, daß die ’Grafikdemo 
1 ’ sich nicht mit dem dazuge¬ 
hörenden Ladeprogramm la¬ 
den ließ. Als ich dabei war, 
dieses Ladeprogramm zu 
analysieren, stieß mir in Zei¬ 
le 60 ein Fehler in die Augen, 
und zwar muß in Zeile 60 am 
Ende statt einer ’2' eine 7 ’ 
stehen. 

60 n$=“demol.ani“ :| LOADANIM 
, @n$, &1000,1 

Markus Jahn 

Hollfeld 


Als uns Ihr Brief erreichte, 
lief uns beim Lesen ein kalter 
Schauer über den Rücken, 
dieser entwickelte sich zum 
Frösteln, als wir merkten, 
daß der Fehler real existent 
war. 

Gott sei Dank sind wir vor 
dem Erfrieren noch mal da¬ 
vongekommen, dank auf¬ 
merksamer Leser wie Ihnen. 
Für alle anderen ’Kribbelfin- 
ger’ also hiermit die Verbes¬ 
serung. 

(Red.) 


Datenfernübertragung 
vom CPC 6128 zum PC 

Die Arbeitsgruppe Compu¬ 
ter-Genealogie in der hessi¬ 
schen fand l iengeschich t li¬ 
ehen Vereinigung in Darm¬ 
stadt setzt seit einiger Zeit 
CPC 6128 ein, um Daten 
(z.B. Heiratseinträge aus 
Kirchenbüchern) über dBASE 
II zu erfassen. Anschließend 
werden die dBASE-Dateien 
über ein 5,2 5 “-Laufwerk 
zum PC kon vertiert. 

Genau beschrieben wurde 
dieses Verfahren in Heft 6/87 
auf Seite 9. Inzwischen wur¬ 
de das Verfahren noch ver¬ 
feinert und bei dBASE gleich 
eine Konvertierung von 
dBASE II nach III + mit ein¬ 
gebunden. 

Warum zur Datenerfassung 
ein CPC 6128 verwendet 
wird? Nun, ganz einfach aus 
Kostengründen. Die Hard¬ 
ware und die entsprechende 
Software sind preisgünstig. 
Anschließend wird nur ein 
kostenintensiverer, vereins¬ 
eigener PC mit der dazuge¬ 
hörenden teueren Software 
benötigt. 

Weitere Fragen zur Daten¬ 
konvertierung vom CPC 
6128 zum PC beantwortet 
die Arbeitsgruppe Compu¬ 
ter-Genealogie, z.H. Dieter 
Zwinger, Osannstraße 24, 
6100 Darmstadt 

Dieter Zwinger 
Darmstadt 


Zum Leserbrief 
“CPC 6128 meldet 
beim Laden Fehler“ 

(Heft 12/88) 

In dem Leserbrief aus Heft 
12/88 hat sich leider ein klei¬ 
ner Fehler eingeschlichen. 
Im Brief zur Beseitigung der 
Lesefehler bei Herrn Spietz 
muß der erste OUT-Befehl 
(Floppy-Motor einschalten) 
so lauten: OUT &FA7E,1. 

Harald Schön 
Erlangen 


VORTEX - Und wo bleibt 
die Literatur? 

Ich besitze einen Amstrad 
CPC 464 mit F 7-5 Floppy- 
station von VORTEX sowie 
eine Speichererweiterung SP 
256. Ich bin größtenteils mit 
dieser Station zufrieden. 

Aber als Benutzer von Sy¬ 
stemerweiterungen der Fir¬ 
ma VORTEX wird man arg 
benachteiligt. Ich z. B. würde 
sehr gerne die VORTEX- 
Floppy und die Speicherer¬ 
weiterung in Maschinen¬ 
sprache ansprechen, bzw. in 
bereits bestehende Program¬ 
me nachträglich einbinden. 

Doch anscheinend gibt es 
kein Informationsmaterial, 
schon gar keine dokumen¬ 
tierten ROM-Listings der 
beiden Produkte, so daß man 
auf gut Glück im Erweite- 
rungs-ROM umhersuchen 
muß, um gewisse Routinen 
zu finden. 

Können Sie mir nicht diese 
Suche ersparen, das heißt 
mir mitteilen, ob es solche, 
auf VORTEX-Produkte spe¬ 
zialisierte Literatur gibt? 

'Thomas Rottensteiner 
Tamsweg 


Wir geben diese Frage an un¬ 
sere Leser weiter, da uns lei¬ 
der auch nichts über irgend¬ 
welche Literatur bekannt ist. 
Wer kan" helfen? 

(Red.) 
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AMS-Line- 

der direkte Draht zur Firma AMSTRAD 

Wie jeden Monat präsentieren wir Ihnen neueste Informationen von der 
Firma AMSTRAD. 


GEM 3-Update für alle 
PC 1512/1640 

(Nachtrae zu GEM und Drucker: 
AMS-Line 2/89) 

in dem Beitrag “GEM und Drucker“ 
ist uns leider ein kleiner Schönheitsfeh¬ 
ler passiert: Die von uns angesproche¬ 
nen Druckertreiber für GEM 2 werden 
von der Firma Digital Research inzwi¬ 
schen nicht mehr ausgeliefert. Über die 
Firma Schneider Data ist allerdings 
noch ein “GEM Fonts and Drivers 
Pack für den Schneider PC“ erhältlich 
- es enthält u. a. Druckertreiber für 
Farbdrucker (Epson JX-80, IBM Color 
Jet, Diablo C 150 Color Inkjet) und La¬ 
serdrucker (HP Laser Jet 1, HP Laser 
Jet Plus, Apple Laser Writer). Dieses 
“Driver's Pack“ kann auf jedem 
AMSTRAD (Schneider) PC 1512 bzw. 
1640 installiert werden. 

Für alle, die andere Ausgabegeräte ha¬ 
ben und aus diesem Grund auf die Ver¬ 
sion GEM 3 und deren Treiber ange¬ 
wiesen sind, haben wir jetzt folgende 
Möglichkeit anzubieten: 

Für alle Besitzer eines PC 1512 bzw. 
PC 1640 bietet AMSTRAD zum Preis 
von DM 180, — ein Update von GEM 2 
auf GEM 3 an (Voraussetzung für 
GEM 3 ist eine Festplatte). Mit dem 
GEM 3- Desktop haben Sie Zugriff auf 
alle zur Zeit verfügbaren Treiber und 
Fonts. 

Zum Thema “Wechsel der GEM-Ver¬ 
sion“ kurz noch einige Worte im Zu¬ 
sammenhang mit den PC-1512-Auf- 
rüstkits für Hercules und EGA. Viele 
Benutzer vergessen, daß durch die Um¬ 
rüstung auch ein neues GEM-Desktop 
notwendig wird. Dies kann zum Bei¬ 
spiel durch Kauf eines Diskettensatzes 
für den PC 1640, der das entsprechen¬ 
de GEM beinhaltet oder auch durch das 
Update auf GEM 3 erfolgen. Danach 
können Sie auch mit GEM Ihre neue 
“Grafikdimension“ voll ausnutzen. 


Angebot für “Um- und Einsteiger“ 

An dieser Stelle soll einmal auf eine be¬ 
sonders günstige Möglichkeit hinge¬ 
wiesen werden, durch den Kauf eines 
PCs “kompatibel zu werden“. Bereits 
seit längerem bietet AMSTRAD ein 
Paket an, dem man zu Recht den Na¬ 
men “Start-Set“ geben könnte. Es be¬ 
steht jeweils aus einem PC, einem 
Drucker und der Textverarbeitungs- 
Software “World of Word“. Angebo¬ 
ten werden zwei Versionen: Version¬ 
PC 1512 DD, bestehend aus einem PC 
1512 mit zwei Laufwerken (mit 
Monochrom- oder CGA-Bildschirm), 
einem DMP 3160-Drucker und der 
Software, und die Version-PC 1640 
DD, bestehend aus einem PC 1640 mit 
zwei Laufwerken (ebenfalls mit 
Monochrom- oder CGA-Bildschirm), 
einem LQ 3500-Drucker und der Soft¬ 
ware. 

“World of Word“ bietet alle Möglich¬ 
keiten eines “ausgewachsenen“ Text¬ 
verarbeitungsprogramms. Neben den 
grundlegenden Funktionen zur Text¬ 
eingabe und -gestaltung kommen 
Funktionen zur Layoutgestaltung, zum 
Beispiel der Einbau von Rahmen, etc., 
hinzu. Es können mehrere Texte 
gleichzeitig in mehreren Fenstern bear¬ 
beitet werden. Auch der mitgelieferte 
Hilfstext kann bearbeitet werden und 
so den eigenen Bedürfnissen angepaßt 
werden. Die verschiedenen Schriftar¬ 
ten und Hervorhebungen werden durch 
Attribute wie helle Schrift, heller Hin¬ 
tergrund, Unterstreichen bzw. ver¬ 
schiedene Farben dargestellt. Das mit¬ 
gelieferte Programm kann später durch 
eine Rechtschreibkontrolle ergänzt 
werden. 

PPC und externe Monitore 

Wie wir aus den Anfragen, die uns er¬ 
reichen, ersehen konnten, ist ein Punkt 
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offensichtlich noch nicht vollkommen 
klar: 

Die Grafikkarte des PPC ist eine CGA- 
Karte; Hercules-Darsteliung ist mit 
dem Gerät nicht möglich. Wenn als ex¬ 
terner Monitor ein PC-MD-Monitor 
angeschlossen werden soll, müssen die 
DIP-Schalter an der Seite des Gerätes 
in die für MDA angegebene Stellung 
gebracht werden (Handbuch Seite 11). 
In dieser Einstellung ist nur reine Text¬ 
darstellung - keine Grafikdarstellung 
— möglich. Grafik kann - sowohl auf 
dem LCD-Display, als auch auf exter¬ 
nen Monitoren — nur in der Einstel¬ 
lung für CGA erfolgen. Ein externer 
Monitor muß demzufolge dazu fähig 
sein, CGA-Grafik darzustellen, wenn 
auf ihm Grafikprograme laufen sollen. 

Farbbänder für 
AMSTRAD-Drucker 

Gerade bei den PCW-Textsystemen 
werden wir häufig danach gefragt, wel¬ 
che Farbbänder von anderen Herstel¬ 
lern verwendet werden können. Die im 
Typenraddrucker des Systems PCW 
9512 verwendeten Farbbänder stim¬ 
men mit denen des Druckers “Nakaji- 
ma 200“ überein; im Drucker der 
PCW-8xxx-Serie können auch Farb¬ 
bänder für den Drucker “Seikosha SP 
800“, die in verschiedenen Farben im 
Handel erhältlich sind, benutzt wer¬ 
den. Das gleiche gilt auch für den LQ 
3500, der denselben Farbbandtyp ver¬ 
wendet. 

So, das war es für diesmal wieder; soll¬ 
ten Sie noch Fragen, Anregungen oder 
Kritiken anzubringen haben, so können 
Sie diese gerne an die folgende Adresse 
richten: 

AMSTRAD GmbH 

Abt. TVF Kennwort AMSLINE 

Robert-Koch-Str. 5 

D-6078 Neu-Isenburg 


Ihre 
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Vom Gedanken bis zum Brief 

Möglichkeiten moderner 

Textverarbeitungsprogramme 

Es ist unmöglich, mit ein und derselben Textverarbeitung alle Anwender zu 
befriedigen. Zu verschieden sind die Vorstellungen und Anwendungsgebie¬ 
te. Ein Programmierer benötigt ein Programm zum schnellen Editieren sei¬ 
ner Listings, eine Sekretärin kann auf die Serienbrief-Option nicht verzich¬ 
ten, der Buchautor benötigt unbedingt die Rechtschreibhilfe, und der Wis¬ 
senschaftler ist todunglücklich, wenn seine Anwendung keine Möglichkeit 
der Gliederung von Texten enthält. Der Student schließlich zieht ein Pro¬ 
gramm vor, mit dem er nicht nur seine Diplomarbeit erstellen kann, son¬ 
dern das auch noch Inhalts- und Stichwortverzeichnisse einrichtet. Doch 
alle wünschen sich eins: Leicht anwendbar muß das Programm sein. Wir 
wollen Ihnen in diesem Artikel nicht etwa die Vorzüge und Nachteile einzel¬ 
ner Programme aufzeigen, sondern an Hand von einigen Beispielen Mög¬ 
lichkeiten moderner Textverarbeitung erläutern. 


Die Benutzeroberfläche, (ein häßliches 
Wort, aber wissen Sie ein treffende¬ 
res?) ist die Visitenkarte eines jeden 
Programms. Sie vermittelt einen ersten 
Eindruck von der Anwenderfreund¬ 
lichkeit oder Kompliziertheit der Be¬ 
dienung. Gehen wir einmal einige Jah¬ 
re zurück. 

Zu Hochzeiten von CP/M war eine 
Textverarbeitung mit Namen Word¬ 
star das Maß aller Dinge. CPC- und 
Joyce-Benutzer können ein Lied davon 
singen, denn die Auswahl guter und 
preiswerter Textverarbeitungen war 
vor gar nicht langer Zeit noch sehr ge¬ 
ring. Also mußte man in den sauren 


Apfel beißen und das nehmen, was der 
Markt hergab. 

Von Menütechnik war auch nicht der 
Hauch einer Spur zu entdecken, und 
sein wir einmal ehrlich, trotz zahlrei¬ 
cher Weiterentwicklungen des besag¬ 
ten Programms ist dieser Punkt leider 
immer noch sträflich vernachlässigt 
worden. Neuere Programme, auch für 
CP/M sehen da schon ganz anders aus. 
Menü- und Fenstertechnik gehören 
schon quasi zum Standard. 

Jedoch zeigt sich, daß sich ein gewisser 
Standard immer wieder in die Gegen¬ 
wart hinüberrettet. So war und ist es 
auch bei Wordstar. Wir sprechen ganz 


bewußt den Befehlssatz an, die Tasten¬ 
codes in Verbindung mit der Ctrl- und 
der Alt-Taste. Sie sind neben einer ei¬ 
genen Funktionstastenbelegung und 
Menüoberfläche als zusätzliches Bon¬ 
bon in vielen Textprogrammen zu Fin¬ 
den. Dies erleichtert Umsteigern von 
Wordstar die Einarbeitung und Bedie¬ 
nung des jeweiligen Programms. 
Ebenso wichtig ist ein Arbeitsbereich 
mit den notwendigsten Informationen. 
Was nutzt der tollste Editor, wenn Sie 
nicht ablesen können, in welcher Zeile 
und Spalte sich der Cursor just in die¬ 
sem Moment befindet. Auch die Anga¬ 
be der in Arbeit befindlichen Textdatei 
sollte in dieser Statuszeile- oder wie 
sie auch immer genannt wird — nicht 
fehlen. Weitere mögliche Angaben wä¬ 
ren: 

— Angabe der aktuellen Seite 

— Einfüge- oder Überschreibe-Modus 

— Block- oder Flattersatz 

— Automatische Trennung 

— Wortumbruch 

Werfen wir nun erst einmal einen Blick 
in die Werkzeugkiste. Wir meinen die 
Grundausstattung einer jeden Textver¬ 
arbeitung, den Vorrat an Optionen, 
ohne den es einfach nicht geht: 

Editierbefehle 

Ob Sie lieber mit den Pfeiltasten oder 
mit Ihrem 'Nagetier’ über den Bild¬ 
schirm huschen, lassen wir einmal da¬ 
hingestellt sein. Viel wichtiger sind 
Kommandos zum Löschen und Einfü¬ 
gen von Zeichen, Wörtern und Zeilen. 
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Auch sollte es möglich sein, auf Ta¬ 
stendruck ein horizontales und vertika¬ 
les Scrolling (Rollen des Textes) zu er¬ 
zeugen. Sprünge innerhalb des Bild¬ 
schirmfensters und zum Anfang und 
Ende einer Textdatei sind ebenfalls 
eine Selbstverständlichkeit für eine 
gute Anwendung. Zu dieser Kategorie 
von Kommandos gehört aber auch die 
Umschaltung zwischen Einfüge- und 
Überschreib-Modus sowie ein seiten¬ 
weises Blättern im Text. 

Laden und Speichern von Dateien 

Sie kennen wahrscheinlich die Situa¬ 
tion: Das Telefon klingelt, man muß 
den Computer-Arbeitsplatz schnell 
verlassen und vergißt, den Text noch 
schnell zu sichern. Nach einer Viertel¬ 
stunde kehrt man zurück, ein netter 
Mitarbeiter hat sich in der Zwischen¬ 
zeit des Rechners bemächtigt, und die 
Textdatei ist futsch. Wie toll wäre eine 
automatische Datensicherung, die alle 
fünf Minuten die neueste Version der 
Textdatei abspeichert. Aber schon 
beim Laden von Dateien können Sie 
den Unterschied zwischen einfachen 
und guten Textverarbeitungen feststel¬ 
len. Erstere verlangen unbedingt einen 
Dateinamen, bessere zeigen ein Ver¬ 
zeichnis der vorhandenen Files und 
überlassen Ihnen die Auswahl. Auch 
beim Speichern gibt es große Unter¬ 
schiede. Während die einen Program¬ 
me Ihre Texte immer nur unter den ein¬ 
mal festgelegten Namen abspeichern, 
lassen die anderen eine Sicherung unter 
beliebigen neuen Namen zu. 

Suchen und Ersetzen 

Diese oft benötigte Option sollte in kei¬ 
ner Textverarbeitung fehlen, oder 
durchsuchen Sie gern eine 50 KByte 
lange Datei nach Zeichen, die Ihren 
Drucker jedesmals aus dem Gleichge¬ 
wicht bringen. Einfacher geht es wirk¬ 
lich mit Suchen und Ersetzen. Sie ge¬ 
ben einmal das zu ersetzende Zeichen 
und den Ersatz ein und lassen den 
Computer suchen. Zum einen ist er we¬ 
sentlich schneller als der Mensch und 
zum anderen auch gewissenhafter. Ei¬ 
nige Programme bieten noch zusätzli¬ 
che Wahlmöglichkeiten an: 

— automatischer Ersatz aller Zeichen 

— manuelle Weiterschaltung nach je¬ 
dem Ersatz 

— Suche von Dateianfang an 

— Suche nur nach ganzen Worten 

— und vieles mehr. 

Die Blockoperationen 

Wenn Sie längere Texte schreiben, 
werden Sie schnell feststellen, daß Sie 
ohne Blockoperationen nicht auskom- 
men. Mit Hilfe der Blockbefehle mar- 
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Mil MICROSOFT QUICKBASIC 4.5 ist Programmieren 
auf dem PC jetzt effektiver als je zuvor. Durch zwei neue, voll 
in MICROSOFT QUICKBASIC 4.5 integrierte 
Hilfsfunktionen wird die Programmierung 
wesentlich vereinfacht: QB-Express ist ein 
interaktives Lernprogramm, das Sie schnell und 
gezielt in die Umgebung von QUICKBASIC ein¬ 
führt Schon nach wenigen Minuten entwerfen 
Sie Ihre ersten Programmsysteme. Der OB-Rat¬ 
geber ist die elektronische On-Lme-Hilfsfunktion 
mit dem kompletten BASIC-Befehlsverzeichnis 
und umfassender Beschreibung aller BASIC- 
Befehle. Mit der Hypertext-Technologie des 
OB-Ratgebers können Sie jederzeit per Knopf¬ 
druck oder Mausklick Querverweise und Bei¬ 
spiele zu sämtlichen BASIC-Befehlen am Bild¬ 
schirm abrufen. Beispiele können Sie in den 
Editor kopieren und sofort austesten. Zeitrau¬ 
bendes Suchen im Handbuch entfällt Ihr per¬ 
sönlicher Trainingsaufwand wird auf ein Mini¬ 
mum reduziert 

Als einziger BASIC-Compiler besitzt 
MICROSOFT QUICKBASIC 4.5 eine integrierte 
Programm-Entwicklungsumgebung mit einge¬ 
bautem Editor, Compiler und benutzerfreundli¬ 
chem Debugger. Die automatische Syntaxüber¬ 
prüfung bei der Eingabe verkürzt langwierige 
Obersetzungszeiten. Innovative Technik elimi¬ 
niert überflüssige Compilierschritte. Sie können 
Ihr Programm ausführen, zum Editieren und 
Debuggen anhalten und ohne zeitintensive 
Neucompilierung jederzeit in der Programm¬ 
ausführung fortfahren. Sie müssen schon lange 
suchen, um einen Compiler mit schnelleren 
Programmentwicklungszeiten zu finden. 

MICROSOFT QUICKBASIC 4.5. Der einfachste und 
^schnellste Weg zur BASIC-Programmierung. Jetzt zum 
Preis von DM 339,- (unverbindliche Preisempfehlung). 


Zwei neue, umfang¬ 
reiche integrierte 
Hilfsfunktionen: 

- interaktives 
Lernprogramm 
QB-Express 

- QB-Ratgeber 
Komfortabler 
Quell-Code- 
Debugger: 

- Haltepunkte, 
Anzeigevariablen, 
Einzelschritt¬ 
ausführung, u.v.m. 

Compiliert bis zu 
150.000 Zeilen 
pro Minute 
Automatische 
Syntaxüberprüfung 
bei der Eingabe 
Gemischtsprachi¬ 
ges Programmieren 
Programmgröße 
über 64 KB möglich 
Rekursionen 
Kompatibilität zum 
MS 0S/2-BASIC- 
Compiler 6.0 sowie 
zu allen BASIC- 
Interpretern 
(BASICA, 
GW-BASIC) 
Grafik-Unterstüt¬ 
zung von VGA, EGA, 
CGA, AT&T 6300 
(Olivetti) und 
HERCULES 
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□ System Journal, die spezialisierte PC-Fachzeitschrift für Software-Entwicklung. 

Ich nutze Software: □ privat □ beruflich/Branche_ 

Mein Rechner: □ MS-DOS □ MS OS/2 □ Macintosh 
Bitte senden Sie den Coupon an: Microsoft Info-Service Postfach 129 

Absender nicht vergessen. 
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kieren Sie Textabschnitte, die soge¬ 
nannten Blöcke, um sie danach 

— an eine andere Stelle zu verschieben 

— zu kopieren 

— zu löschen 

— oder auf Diskette als separate Text¬ 
datei abzuspeichern. 

Zu den Blockkommandos gehört auch 
das Einlesen von Textdateien und das 
Einbinden im aktuellen Text des Spei¬ 
chers. 

Sie haben eine umfangreiche Datei mit 
einer Textverarbeitung erstellt, aber 
möchten nun den einheitlichen Schrift¬ 
satz durch Abschnitte und Einrückun¬ 
gen auflockern. Für die modernen 
Textverarbeitungen ist auch dies in der 
Regel überhaupt kein Problem. Sie bie¬ 
ten unter anderem folgende Optionen: 

Abschnittweises Formatieren 

Pro festgelegtem Abschnitt oder Block 
stellen Sie als Anwender den rechten 
und linken Rand ein, geben an, ob das 
erste Wort eines jeden Blockes einge¬ 
rückt werden soll, und auf Knopfdruck 
paßt das Programm den Text genau in 
dieses Raster ein. Auf Wunsch werden 
noch zusätzliche Leerzeichen zwischen 
den Wörtern eingefügt, so daß sich an¬ 
stelle des Flattersatzes ein Blocksatz 
auf dem Bildschirm zeigt. Bei diesem 
sind alle Zeilen durch die Einfügung 
der Leerzeichen gleich lang. Manche 
Programme bieten auch noch eine Sil¬ 
bentrennung automatisch oder manuell 
an. Das Ende eines jeden Absatzes 
wird durch ein Steuerzeichen hervor¬ 
gerufen und durch Druck auf die Re¬ 
turn-Taste markiert. Zur Formatierung 
gehört bei einigen Programmen auch 
die Einstellung des Zeilenabstandes 
und das Zentrieren von Zeilen. 

Auswahl von Schriftarten 

Fast alle gängigen Drucker beherr¬ 
schen eine große Anzahl verschiedener 
Druckeffekte, wie Unterstrichen, Fett- 
und Doppeldruck, Kursiv- und Breit- 
schrift, Schmalschrift, Hoch- und Tief¬ 
stellen. Teurere Modelle, wie 
24-Nadler und Laserdrucker bieten 
durch die Option nachladbarer Zei¬ 
chensätze noch weiterreichende Mög¬ 
lichkeiten. Wie aber weiß der Drucker, 
was von ihm verlangt wird? Die Lö¬ 
sung ist relativ einfach, denn Sie als 
Anwender müssen ihn nur durch Steu¬ 
erzeichen über Ihre Wünsche informie¬ 
ren. Viele Textverarbeitungsprogram¬ 
me lassen deshalb sogenannte Punktbe¬ 
fehle zu. Dies sind einzelne Buchsta¬ 
ben oder Buchstaben folgen, denen ein 
Punkt als Erkennungszeichen vorange¬ 
stellt wird. 
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‘-1-SWMWSP TRS-Selle t—Soll* 1—«i>a!te 1—-TRW-WK'::«F H 

f® 1 • N*w iJb* Dpuckkanals 

M - J*hl der t>edruckk*reii Zellen pro Seite 

J : lSN-ZeichensatXi J=Ja N=Neln 

•' • .'Inhalten a» Seitenendei NO'ruiIcspapler 

{ äirücksetxen de« Drucker* liker Hardware Möglich 

I* ' Steuerro i eher zun Zurtlcksetren dec Drucker* 

2 : Stauersequenz a» Druckende 

■ Steuersequenz für Seltenvorschuh 
'• Internationaler Zeichensati (USA> 

*t*» : Deutscher Zaichensatx 

J w : JatSCU-Wert wie chr$(33>, N=Z»hle.wtring wie "33" 

'1* • Zetchenfcreite elrtstellsn, Startcode (danach folgt Zahl) 

• Zeichenhreite einstellen, Endcode (Zahl geht voraus) 

18 ; Standardwert flir Zeichenhreite 

’fl ; Zellenahstand einstellen, Startcode (danach folgt Zahl) 

: Zeilenahstand einstellen, Endcode (Zahl geht voraus) 

18 i Standardwert fUr Zei lenahstand 

'S I A‘ nichts tun 

'S 

■* '■ B: Breitschrift 


bpaite ii 


uw tato 


ft: TKXTWtU.TXT 

--- CTRL Hoiwinndos - 

S onst iwe .. 
itor R Absatz 

fomntiornn 

Kick L Suchon^Ers. 

uledorholen 
unlon H fthsatznndc 

ohon (Boturn) 

J1 Zeile 

»■ ■• u Inf Ilgen 

play V Einfügen 

tei ein / a«e (1KS) 


Kj Idnchlm , ■ 

C Seite uoitor 
(PgDn) 

R Snito zuKIck 
tPgU)*) 

Z Zci le n. unten 
U Zeile n, ohen 


S link« C») 

X untun (1) 

D rechts (t) 

K oh«n (t) 

A Uurt links 
F Wort rnrkt; 

I ciin niirhstan 
Tahulator 


3HM1BHUB» ■ ■ ■ 

J Irrfo/Dispjav 
K Bla.krftalei 

0 Fi.. t i .. 

Layout 

P Schrlfttypen 
4 Cariurbewegiinff/ 
Sui: hcn/Ersc t in n 


L fectei..- 
C Zeichen auf 
Curaoi-poi. 

II U ich, links 
I Uort 
V Zeile 


\ Sundorzelchen 

- Bnchstahen 

vertauschet! 

1,6 Tcxtimffer 


Bild I: Ein Textverarbeitungsprogramm mit Pulldown-Meniis kann eine Bild 2: Bei vielen PC-Progranunen läßt .sich der Druckertreiber direkt in 
Hilfe sein. Im Bild sehen wir ein Menü, das sich durch bestimmte Tasten- das Textprogramm einladen und verändern, 
kombinationen aufrufen läßt. 


Was man schwarz auf weiß 
besitzt... 

Nachdem Sic nun Ihren Text sorgfältig 
gestaltet haben, dauert es jedoch noch 
eine ganze Weile, bis sie ihn schwarz 
auf weiß bestaunen können. Denn es 
fehlen ja noch die weiteren Steuerzei¬ 
chen für den Drucker: 

Seitenumbruch und -format 

Der Seitenumbruch zeichnet verant¬ 
wortlich für die richtige Verteilung des 
Textes auf einer Seite. Pro Din- 
A4-Seite lassen sich bis zu 62 Zeilen 
Text ausgeben. Der automatische Sei¬ 
tenumbruch läßt sich jedoch in der Re¬ 
gel abschalten. Will man einen vorzei¬ 
tigen Umbruch erzwingen, fügt man 
ein bestimmtes Punktkommando an der 


Stelle ein, an der der Umbruch durch¬ 
geführt werden soll, und das Problem 
ist gelöst. 

Aber auch der automatische Seitenum¬ 
bruch läßt sich in gewissen Grenzen 
verändern. Wenn Sie weniger als 62 
Zeilen Text pro Seite drucken lassen 
möchten, besteht im allgemeinen die 
Möglichkeit, eine gewisse Anzahl von 
Leerzeilen für den oberen und unteren 
Blattrand im Editor einzugeben. Da¬ 
durch erreicht man einen besseren opti¬ 
schen Effekt. Eine vollgestopfte Seite 
ist weniger repräsentativ als ein gut 
durchgestyltes Blatt. 

Weitere Druckeranweisungen 

Neben dieser wichtigsten Anweisung 
gibt es noch eine Reihe weiterer inter¬ 
essanter Kommandos, von denen wir 


einige noch näher anschauen wollen: 

— Festlegung des linken Blattrandes 
Wenn Sie Seiten abheften wollen, ist es 
wichtig, einen Rand an der linken Seite 
des Blattes einzustellen, wollen Sie 
nicht einen Informationsverlust ris¬ 
kieren. 

— Definition von Kopf- und Fußzeilen 
In Manuskripten und Protokollen hat es 
sich eingebürgert, sogenannte Kopf- 
und Fußzeilen einzuführen. Dies sind 
einzeilige Kommentare, die auf jedem 
Blatt einer ausgedruckten Textdatei am 
oberen und unteren Rand ausgedruckt 
werden. Die Fußzeile kann neben der 
Seitenangabe noch zusätzlichen Text 
enthalten. 

— Einstellung des Zeilenabstandes und 
der Zeichenbreite 
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Computer 
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** Concext CPC 


C P c 

ft* 

DMV- Verjag 

ft. 

69,- (D) 


Ja 


Nein 


Nein 

*ft 
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• • 


ft ■ 

49,- (KJ 

.... 
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DA 

C P c 

• ft 

Weeske 

«ft 
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• ft 

C P c 

«« 

Weeske 

ft« 

90, - 
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Ja 

«« 

Ja 




** 



• • 


* A 


*** • 
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• • 
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44 






ft« 


• • 


* * 

70.- 







4 4 





** 

• * 






• «•ft 












«* 


ft» 


.. 
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•*** 
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Ja 

• • 
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*• 
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***» 
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179,- 

.... 
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Nein 


Ja 

** 

Ja 
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*• 

P c 

.. 
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105,- 

.... 

Ja 





.. 
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Jo 







** 

** 














18 PC 5’89 


L 










































Bericht—| 


Bild 3: Das aus Eng¬ 
land kommende Text¬ 
programm Protext. 

fiir den CPC und 
PCWerhältlich, ist 
zwar in englisch, 
aber wen es nicht 
stört, bekommt ein 
Klasseprogramm. 



Druckertreiber - die Qual der Wahl 

Es hat sich vieles verbessert. Die 
Drucker sind kompatibler geworden 
und die Entwickler der Textverarbei¬ 
tungsprogramme haben ebenfalls dazu¬ 
gelernt. Sie liefern entweder eine Viel¬ 
zahl Druckertreiber im Paket mit, oder 
aber die Installierung eigener Treiber 
wurde so vereinfacht (ASCII-Datei), 
daß sie fast von einem Computerlaien 
angepaßt werden kann. Trotzdem gibt 
es immer noch einige Schwierigkeiten 
zu überbrücken. Dies hängt mit dem 
Zeichensatz zusammen. Nicht alle 
Drucker können den erweiterten 
ASCII-Satz ab 128 bis 255 ausgeben. 
Ihr Zeichensatzspeicher beherbergt lei¬ 
der nur die unteren 128 Zeichen. Bei 
der Ausgabe der deutschen Sonderzei¬ 
chen kann dies dazu führen, daß statt 
des erwarteten Ä oder Ü alles andere 
oder auch gar nichts ausgegeben wird. 
Zur Beseitigung dieses Problems sind 
einige Textverarbeitungen mit soge¬ 
nannten Zeichentauschtabellen ausge¬ 
stattet. In den Tabellen werden die Ori¬ 
ginalzeichen und die Ersatzzeichen 
aufgelistet. Das Druckprogramm er¬ 
setzt bei der Ausgabe das Original 
durch das neue Zeichen, und alles ist 
wieder im Lot. 

Im Besonderen liegt der Reiz 

Im Laufe der Zeit kommen wir mit den 
unterschiedlichsten Textverarbeitun¬ 
gen in Berührung. Ob für CP/M oder 
MS-DOS, fast alle Programme bieten 
mehr als nur reine Textverarbeitung. 
Als erstes müssen wir die Disketten¬ 
funktionen nennen. Ohne die Textver¬ 


arbeitung verlassen zu müssen, forma¬ 
tieren und kopieren Sie nach Herzenz- 
lust Disketten, löschen, verschieben 
und benennen Dateien um, oder ma¬ 
chen irrtümlich gelöschte Files wieder 
sichtbar. An zweiter Stelle dürfen wir 
natürlich nicht die Rechtschreibkorrek¬ 
tur vergessen. Ein mehr oder weniger 
umfangreiches Wörterbuch im Hinter¬ 
grund erleichtert die Eingabe, verhin¬ 
dert Schreibfehler und lernt neue Wör¬ 
ter hinzu. 

Eine solche Option schlägt sich natür¬ 
lich auch im Preis einer Textverarbei¬ 
tung nieder und wird auch nur von eini¬ 
gen Anwendergruppen unbedingt be¬ 
nötigt. Aller guten Dinge sind drei: Es 
wären noch die integrierte Adreßver- 
waltung und die Serienbrief-Option zu 
vermelden. Wer oft gleichlautende 
Briefe an zahlreiche Personen oder Fir¬ 
men schreibt, kann ohne diese Funk¬ 


tion nicht auskommen. Der Text wird 
nur einmal erstellt, die Adressen der 
Empfänger in der Adreßverwaltung 
markiert,und das System druckt die ge¬ 
wünschte Anzahl der Briefe mit der 
richtigen Anschrift, Anrede, Datum 
und natürlich dem dazugehörigen 
Adreßaufkleber. 

(Hans-Werner Fromme/cd/jb) 


Liebe Leser, wir konnten Ihnen in diesem 
Artikel nur eine kleine Auswahl von Funk¬ 
tionen beschreiben, die moderne Textverar¬ 
beitungen bieten und nach denen man sich 
seine spezielle Anwendung aussuchen sollte. 
Informieren Sie sich vor einem Kauf sehr 
gründlich über die Möglichkeiten der Pro¬ 
gramme und vergleichen Sie diese mit Ihren 
Vorstellungen. Nur so schützen Sie sich vor 
einer Enttäuschung. Um Ihnen die Auswahl 
zu erleichtern, haben wir Ihnen in einer Liste 
die bekanntesten Textverarbeitungen für 
JOYCE, CPC und MS-DOS Computer mit 
ihren wichtigsten Eigenschaften aufgeführt. 
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Wir haben für Sie Programme aus dem 
überfüllten Markt herausgesucht, um 
Ihnen eine kleine Übersicht zu ver¬ 
schaffen. Natürlich waren wir auf Ih¬ 
ren schmalen Geldbeutel bedacht, denn 
dieser sollte ja nicht zu sehr strapaziert 
werden. Damit es noch ein wenig leich¬ 
ter wird, haben wir eine Grenze bis 
200,— DM gezogen, was für Textpro¬ 
gramme noch erträglich ist. 

Einige der vorgestellten Programme 
sind als erweiterte Versionen erhält¬ 
lich, allerdings auch zu einem Preis, 
der in unsere gezogene Grenze nicht 
mehr hineinpaßt und damit auch nicht 
mehr berücksichtigt werden konnte. 
Beginnen wollen wir mit den gebräuch¬ 
lichsten CPC-Programmen, die auf 
dem Markt erhältlich sind. Alle Pro¬ 
gramme, die wir vorstellen, sind in Ih¬ 
ren Funktionen leicht zu bedienen und 
zu verstehen. Allerdings bedürfen die¬ 
se Programme einer bestimmten Ein¬ 
führungszeit, um alle Fähigkeiten aus¬ 
zunutzen. Bestimmte Funktionen wer¬ 
den nicht besprochen, weil sie einfach 
nicht vorhanden sind. Textprogramme 
wie zum Beispiel ’Context CPC’ besit¬ 
zen keine Serienbrieffunktionen, weil 
sich das Programm an die Anfänger¬ 
gruppe wendet, die noch keine beson¬ 
deren Erfahrungen auf diesem Gebiet 
haben. Andere sind wiederum beson¬ 
ders schnell und besitzen Hilfsmenüs, 
um eine Einarbeitung zu erleichtern, 
wie es zum Beispiel das Programm 
'Protext’ besitzt. 

Ein anderes Programm besitzt ein inte¬ 
griertes Programmpaket, wie die Bear¬ 
beitung von Adressen im Text oder 
Grafikeinbindung. Sogar ein 'einge¬ 
bautes’ DFÜ-Programm besitzt die 
Textverarbeitung Star Writer I. 
Natürlich kommt da die Frage auf, ob 
die eine oder andere Funktion über¬ 
haupt benötigt wird, denn die meisten 
Anwender werden so ein Textsystem 
nur zum einfachen Briefeschreiben be¬ 
nutzen, und wollen sich nicht erst 
durch fünf oder mehr Menüs quälen. 


Bild 4: Für den PC 
bieten sich besonders 
viele Programme an. 
Eins davon ist CON- 
TEXT Pro, dessen 
Ursprünge beim CPC 
Hegen. 

Komplizierte Programme kosten mehr 
Geld, und können oft nicht bis zum äu¬ 
ßersten ausgenutzt werden, da ihre er¬ 
weiterten Funktionen nur mit weiteren 
käuflichen Hilfsprogrammen oder 
mangels Erfahrungen nicht angewen¬ 
det werden können. Wie dem auch sei, 
wir haben die gebräuchlichsten Eigen¬ 
schaften herausgesucht, die jedes Pro¬ 
gramm haben sollte. Bedenken Sie aber 
folgendes, jedes Programm besitzt so 
seine Eigenheiten. Das betrifft zum 
Beispiel: 

— die Druckertreiber 

Hierbei kommt es darauf an, ob schon 
fertige Treiber mitgeliefert werden und 
wenn ja, wie viele. 

Ist die Antwort 'Nein’, so sollte aber 
die Möglichkeit bestehen, sich seinen 
eigenen Treiber zu erstellen. Die we¬ 
nigsten Schwierigkeiten erwarten Sie, 
wenn ein “EPSON-kompatibler“ 
Druckertreiber benutzt wird. Dies trifft 
übrigens auch auf den Drucker zu. 

— Datentausch 

Eine Tatsache, die oft eine wichtige 
Rolle spielt, ist die Art der Datenerzeu¬ 
gung, also die Abspeicherung der Tex¬ 
te oder Textfiles. Wer mehrere Text¬ 
programme sein eigen nennen kann 
(oder will?), wird sich dann über einen 
eigentlichen Standard freuen. Nämlich 
die Erzeugung von ASCII-Dateien. 
Wird ein solches Format erzeugt, so 
bedeutet dies, daß eine Übertragung 
der Texte auf ein anderes Textpro¬ 
gramm möglich ist, was aber bei den 
meisten Textsystemen der Fall ist. 

Darf’s ein wenig Grafik sein? 

Wer mit dem Gedanken spielt, Grafi¬ 
ken in seinen Text einzubinden, wird 
oftmals enttäuscht werden, denn Grafi¬ 
ken lassen sich nicht ohne weiteres ein¬ 
binden. Der Grund liegt in der Tatsa¬ 
che, daß Grafiken ein anderes Format 
als Textfiles haben. Darum sind die 
Hersteller von Textprogrammen auf 
andere Möglichkeiten ausgewichen. 


Eine von diesen Möglichkeiten ist der 
Gebrauch von grafischen Elementen, 
die sich im Programm selbst befinden 
und auch damit ausgedruckt werden 
können. Die andere Möglichkeit ist die 
Konvertierung von Grafiken in eine 
Art Textfile. Wem dies alles zu viel ist 
und wer gleich Grafiken einladen 
möchte, muß das mit einem höheren 
Preis bezahlen. 

Stellen Sie sich folgende Situation vor: 
Sie haben einen Text am vorherigen 
Abend geschrieben und abgespeichert. 
Am nächsten Tag, wenn Sie wieder et¬ 
was Luft haben, soll der Text weiterge¬ 
schrieben werden. Sie starten Ihr Pro¬ 
gramm und nun möchte die Text Verar¬ 
beitung den Dateinamen wissen. Da 
wir aber gestern etwas müde waren, 
haben wir nicht auf den abgespeicher¬ 
ten Namen geachtet und wissen nun 
nicht mehr, wie der Name ist. Nun 
heißt es ein paar Tasten gedrückt, um 
das Inhaltsverzeichnis zu begutachten. 
Hätte der Anwender gleich beim Einle¬ 
sen des Programms das Inhaltsver¬ 
zeichnis auf dem Bildschirm, so wäre 
dieses kleine Problem gelöst. Diese 
Kleinigkeit ist sehr hilfreich, aber in 
der Praxis kommt dies leider nicht so 
oft vor, wie man es sich wünschen 
würde. 

Die Rechnung ohne das 

Programm gemacht 

Eine Option, die zwar im Normalfall 
nicht gebraucht wird, aber für manche 
Tätigkeiten sehr nützlich sein kann, ist 
die Möglichkeit, im Text zu rechnen. 
Aber es gibt noch Unterschiede: 

— direktes Rechnen im Text 

Der Rechner öffnet ein Fenster, wo ein 
Taschenrechner mit einer Vielzahl von 
Funktionen zur Verfügung steht. 
Beispiele wären: 

Addition, Subtraktion, Division, Mul¬ 
tiplikation und auch wissenschaftliche 
Rechnungen. 

Sind die Rechenarbeiten erledigt, so 
können diese direkt an die Cursorposi¬ 
tion oder an andere Stellen übergeben 
werden. 

— Rechnen ohne Übergabe 

Dies ist bei preiswerten Programmen 
oft zu finden. Allerdings bedeutet es, 
daß kein Ergebnis direkt mit in den 
Text eingebunden werden kann. Der 
Vorteil liegt aber darin, daß jederzeit 
ein 'Taschenrechner’ zur Verfügung 
steht. 

Und nun wünschen wir Ihnen gutes Ge¬ 
lingen. 

Hinweis 

In der abgedruckten Tabelle finden Sie 
teilweise eingeklammerte Minuszei¬ 
chen, das bedeutet, daß die Funktion 
eingeschränkt ist. 
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Multiface II 


Arnor^^l^STA^IVISIO^I^dkJroni^CPC 

SB rnM im 


PROWORT 

PROTEXT: 

2 

• y-Diskette 

! 

•EPROM 

i; 

MAXAM (Z80 Entw.): 

• y-Diskette 

{ 

•EPROM 

i: 

MAXAM II 
PROSPELL: 

•engl, Vers. 

2: 

• dtsch. Vers. 


Dtsch. Handbuch: 

...PROTEXT 

19,£ 

...MAXAM 

19,£ 


STAR-WRITER 1 

98,- 

DATEI-STAR 

98,- 


Alles für Ihren CPC 


Kopierprogramme 


Supercopy 

65,- 

Mastercopy 

69,- 


VAN DER ZALM 


ADRESCOMP 

DATENREM 

FAKTUREM 

FIBUKING 

LAGDAT 

TEXTKING 

COMFORM 

ETATGRAF 

FIBUCOMP 

KALKUREM 

PROFIREM 

VOKABI 


PROWORT 
PROSPELL 
MAXAM II 


ADRESCOMP 

COMFORM 

DATENREM 

ETATGRAF 

FIBUKING 

LAGDAT 

PROFIREM 

VOKABI 

FAKTUREM 

KALKUREM 


LocoScripl2 
LocoMail 1 
Loco Mail 2 
LocoSpell2 
L. Script + Spell 
LocoFile 
LocoFonI 


Multiplan 198,- 

dBasell 198,- 

Tasword8000 148,- 


CPC-Adventures: 


Auftrag in der Bronx (g) 
Insel der Smaragde (t) 
Das Pharaonengrab (t) 

(t - text; g - Grafik; alle in 
deutsch) 

je Kassette 3{ 

je Diskette 45 


Mini Office II 


Text • Datenbank • Grafik • 
Etikettendruck • Tabellen- 
kalkulatlon • engl. Handb. • 

Komplett für nur 98,- 


ROMBO: 


(Kopierprogramm) 

Vollständige Koplerelnrich- 
tung für Kassetten und Disk. 


Handbücher deutsch 


■MiniOffice II 

■ AMX-Mouse 

■ StopPress 

• dk'tronics Erw. 


Datenfernübertragung 


64 k Silicon Disk* 

168, 

Speech Syn. (ROM)+ 

148, 

Lightpen (ROM)’' 

96. 

Uhrenmodut* 

119. 

Adapter (+) 

39, 


Dari - Scanner CPC 

Stop Press Utilities 


AMX-Mouse CPC 


Steuerung Ihres CPC Ober 
den Bildschirm • mit hervor¬ 
ragendem Grafikprogramm ■ 
org. engl. Handbuch • 

nur 278, 

...Handbuch deutsch 
29,8 


Sfop Press 


Extra 1 

Jede Menge neue Fonts! 

129,- 


Ma/conl-Trackerball jetzt 
auch für den CPCI Mit dem 
hervorragenden Grafikpro¬ 
gramm EASI-ART von Micro- 
draw. 

komplett für nur 298,- 

...komplett mit StopPress 
Paketpreis 448,- 


Scannen von Bildern und 
Grafiken in Verbindung mH ei¬ 
nem kompl. Grafikprogramm. 
Sie benötigen dazu einen 
DMP 2xxx/3xxx Drucker. MH 
deutscher AnleHung I 
komplett für nur 249,— 

Adapter CPC 6128 39,- 


Jetzt auch für CPC'sl Erlaubt 
den Anschluß Ihres CPC's an 
den BTX-Rechner der Bundes¬ 
post I 398,- 


Dataphon 21 S 
Dataphon 21-23 S 
Anschlußkabel 
Treibersoftware 


MP2 (Arwchl TV) 
MP3 fTV-ModUator) 
CT2 (Radio-Uhr) 

dBase II 

Multiplan 

Vokabeltrainer; 

• Kassette 

•3"-Diskette 

Verbentrainer: 


Gerdas Maus 


Schaltpläne CPC 


Headline 198,- 

RH-DAT (Datenb.) 98,- 
Turbo Pascal E. 225,- 
DR-Graph 198,- 
DR-Draw 198,- 

Datamat (Datenb.) 99,- 
Prompt(Dateipfg.) 69,- 
Prompt Druck 39,- 
MICA(CAD) 198,- 
Vokabeltrainer 59,- 
Verbentrainer 49,- 
Datamat 99,- 

TurboAdress 98,- 
Turbo Faktura 148,- 
varDat 199,- 

Basic Compiler 139,- 
Comform 59,- 

ComacLitbox 148,- 
COMAC- 

KassePlus 168,- 
Vereinsverwalt. 198,- 
Schreiblehrgang 89,- 
PSE2 129,- 

Fleetstr. Edit. 199,- 
WS-T uner für 
Wordstar 49,80 
Joyce-Mouse Pack 
benötigt RS232 178,- 


Alles für Ihren Joyce 


FISKUS 1987-1988(89) 
Lohnsteuer-Jahresausgleich 
für rar 139,- 

STATISTIK-STAR 

Grafik- und Statistlkprgamm 

nur 98,- 

STAR-MAIL 

ErweHerung von LocoScriptl 
Ausdruck auf Fremddruckern 
Serienbrieferstellung... 

nur 98,- 

DATEI-STAR 

DaleiverwaHungssyslem 

nur 98,- 

MAILING-SYSTEM 

Softwarepaket: STAR-MAIL 
+ DATEFSTAR 189,- 
STAR-BASE 
Datenbanksystem 198,- 

BUSINESS-STAR 

Auftragsbeajbeitung mH: 
Fakturierung / Lager/ Mahn¬ 
wesen / Datenverwaltung... 

298,- 


FIBU-STAR PLUS 

Prof. FinanzbuchhaHung 

298,- 

LOCO-MERGE 


Serienbrieferst. 

98,— 

1 Jovce-Spiele: 

ACE 

69,- 

Batman 

59,- 

Bounder 

49,- 

Bridge Player 

59,- 

Clock Chess 88 

69,- 

Colossus Bridge 

53,- 

Colossus Chess 

69,- 

Fairlight 

59,- 

F.B. Boxing 

69,- 

Football Fort. 

69.- 

Head over Heels 

49,- 

Jewels Darkness 

89,- 

KnightOrc 

69,- 

Match Day 2 

49,- 

Pawn 

89,- 

PSI5Trading 

49,- 

S.A.S. Raid 

59,- 

Strike Force H. 

69,- 

Tetris 

65,- 

Tomahawk 

79,- 


Mini Office* 


Professional 
Textverarbeitung • DFÜ • 
Datenbank - Tabeilenkalku- 
lalion • Geschäftsgrafik • 

Das integrierte Softwarepa¬ 
ket. für hohe Ansprüche, 
komplett für nur 138,— 
...deutscher Zeichensatz 
auf y-Diskette 29,80 


Seitengestalter 
Sensationelles DTP-Progr. 
für den Joyce • engl. Handb. 
StopPress 198,- 

St.Pr. + AMX Maus 398,- 


AMX-Maus Joyce* 


Steuerung Ihres Joyce über 
den Bildschirm. Mit hervor¬ 
ragender Software: AMX- 
Desktop-Programm ■ Notiz¬ 
buch • Kalender • engl. Handb 
nur 298,- 
Adapter 39,- 


Margin Maker 


Ideale Papierführung für Ihren 
Joyce-Drucker. 

nur 39,90 


Joyce-Scanner* 


MasterScan & Paint 
Scanner einfach auf 
Druckerkopf stecken und 
los geht'sl 

MasterScan 298,- 

Master Paint 78,- 

Paketprei s n ur 338,-- 


Adapter 


Protessionelles Deskfop- 
Publlshing auf Ihrem Joyce 
118,- 

... kompl. mit AMX-Maus 
348,- 


Joystick-Conroller* $9, 

Contr.+Sound + 129, 

Echtz eHuhrenmoduf*' 129, 

256 k ErweHerung 248, 

Adapter^) 39, 

** Aufgepasst .*• 

Alle engl. Produkte werden 
mH orginal engl. Handbuch 
ausgelieleftl Für 29,80 (•) 
bzw. 19,80 (••) erhalten 
Sie zusätzlich die jeweilige 
deutsche Übersetzung. _ 


Alle Schneider-Typen 
Die abeoluten Renner: 
EuroPC: 

...MM 12 1.298,- 

TowerPC: 

...201 MM 12 2.498.- 


Diskettenlaufwerke 


Zubehör 


Hardware 


Disketten (10er Pack) 


Schnittstellen 


vonAMSTRAD 
Joyce RS232 198 

CPC RS232org. 198 
... von Schneider 148 


Public Domain 

Software 


CPC + Jovce 


Schaltplane 


DDl (mit Contr.) 499, 


Zweitlaufwerk Joyce: 
(aus eigener Produktion) 

3,5"-Laufwerk 348,- 
51/4”-Laufwerk 448,- 


AMSTFtAD-Laufwerk 
für Joyce: 

FD4 498,- 


Datenrekorder 


für CPC 664,6128 
ind. Kabel 


Abdeckhauben l 


Konsole CPC je 19,80 
Monilore je 29,80 
DMP-Drucker je 19,80 


Diskettenboxen 


... Joyce 
... PC 1512 
... PC 1640 
... Monitor PC 

29,80 

29,80 

29.80 

19.80 

Farbbänder 

NLQ401 

14,80 

StarNLAClO 

24,80 

DMP-Drucker 

19,80 

LQ-Drucker 

29,80 

Joyce-Drucker 

24,80 

PCW9512-Dr. 

19,80 

Competit. Pro 

39,80 

... durchsichtig 

49,80 

Quickshot II 

19,80 

Schneider 

39,- 

—uLÜ£t llll 1 III 1 IM 
Druckerkabel CPC 39,- 
MonHorverlänger. 29,50 
Bildschirmfilter 59,- 


Uber 1000 interessante 
PD-Prg. Fordern Sie bitte 
schriftlich unsere Liste an. 
Jede Diskette 20,- 

PD-Disk. 1-19 mit 
dtsch. Handb. (Kotulla): 
JRT-Pascal (1) ■ Z80-Entw. 
(2) • Small C (4) • Forth-83 
(5) • CPC-A/beHsb. (7) • 
Cave Advenlure (8) • Biz- 
Basic (10) • Basic E- Comp. 
(11)* DateiverwaHung (14) 

• Wordstar Utilities (15) • C- 
Intorpreter (17) • Telekom¬ 
munikation MEX (19) • 

Liste anfordem I 

Jede Diskette 30,- 

Über 700 Diskettenl Liste 
anfordern. Bitte schriftlich I 

Jede Diskette 8,— 


KarFMeinz Weeske * Potsdamer Ring 10 * 7150 Backnang 
Telex 724410 weebad • Kreissparkasse Backnang -BLZ 
(60250020)74397 * Postgiro Stgt. 83326-707 ♦ FAX 60077 

5- 89 W 

COnPUTER-ELEKTROMK 

Zahlung per Nachnahme oder Vorauskasse (Ausfand perScheck). 

| Versancfcostenpauschale (Infand 6,80 DM /Ausland 16,80 DM). 
infoanforderung nur mit frankiertem A4-RückumscWag und DM 2.- 

07191/1528-29 od. 60076 


































































































I Programm 



befindet. Es wird der Preis angezeigt, 
und man kann sich nun entscheiden, ob 
man das Land kaufen will oder nicht. 

L = Laden: Hiermit kann man einen 
abgespeicherten Spielstand wieder 
laden. 

X = Sichern: Mit dieser Funktion wird 
der aktuelle Spielstand auf Diskette 
oder Kassette gespeichert. 

S = Soldaten: Unter dieser Funktion 
werden Soldaten angeworben, um 
Land zu erobern. 

W = Warten: Hiermit kann man für ei¬ 
nen halben Monat an dem Ort bleiben, 
an dem man sich gerade befindet. 

Mit den Cursortasten kann man sich 
nach Norden, Süden, Osten und We¬ 
sten bewegen. Falls man von einer 
feindlichen Armee angegriffen wird, 
kann man mit den Cursortasten die An¬ 
zahl der Soldaten festlegen, mit denen 
man sich verteidigen will (Cursor hoch 
+ , Cursor runter —). 


Tabak und Banditen 

'Australien’ oder Wie man 
aus Qualm Geld macht 

Wenn man sich im Fernsehen ’Dallas’ und *Denver’ anschaut und sieht, wie 
die Jungs immer reicher und die Mädels immer jünger werden, überkommt 
einen manchmal das Gefühl, klein und unbedeutend zu sein. Damit ist es 
jetzt vorbei! Werden Sie (mit unserer Hilfe) Großgrundbesitzer in Australi¬ 
en, und bauen Sie Tabak an, soviel Sie können. Reichtum und Abenteuer 
warten, und das realistischer als im Fernsehen. 


'Australien’ ist ein Spiel für bis zu acht 
Personen. Der Sinn dieses Spieles ist 
es, einen Großteil des Landes zu er¬ 
obern bzw. zu kaufen. Dies läßt sich 
durch geschicktes Handeln mit Tabak 
erreichen, den Sie auf Ihrem eroberten 
Land anpflanzen können. 

Ab und zu kommt ein Händler vorbei, 
um den auf ihren Feldern geernteten 
Tabak zu kaufen, das bringt ihnen ge¬ 
nug Geld ein, um neues Land oder Sol¬ 
daten zu kaufen. Sie sollten allerdings 
ein bißchen auf die Preise achten, nicht 
immer ist das erste Angebot das beste. 
Mit den Soldaten kann man auch Land 
erobern, anstatt es zu kaufen. In acht 
nehmen sollte man sich auch vor her¬ 
umstreunenden Banditen, die einem 
gerne das Geld aus der Tasche ziehen. 

Beschreibung der einzelnen 
Menüpunkte 

A = Angriff: Hiermit kann man Land 
angreifen, welches man noch nicht be¬ 
sitzt. Dies geht natürlich nur dann, 
wenn man mindestens einen Soldaten 
hat. 


B = Behauen: Hiermit kann man ge¬ 
kauftes oder durch einen Angriff er¬ 
obertes Land mit Tabak bebauen. 

E = Arbeiter: Diese sollten Sie mög¬ 
lichst um sich scharen, damit Ihre 
Pflanzungen gehegt, gepflegt und ab¬ 
geerntet werden und sich Ihr leerer 
Geldbeutel füllt. 

K = Kaufen: Hiermit kann man das 
Land kaufen, auf dem man sich gerade 


Anleitung zum Abtippen 

Zuerst muß man AUSTRAL.GEN ab¬ 
tippen, abspeichern und starten, es ge¬ 
neriert das File AUSTRAL.PIC. 
Danach wird AUSTRAL. BAS abge¬ 
tippt und abgespeichert. Das Spiel 
kann man jetzt mit ’RUN“AUS- 
TRAL.BAS“’ starten. 

Kassettenbesitzer müssen auf 

folgendes achten: 

Zuerst tippen Sie AUSTRAL.BAS (Li- 
sting 1) ab und speichern es auf Kasset¬ 
te. Nun tippen Sie AUSTRAL.GEN 
(Listing 2) ab und speichern es auf ei¬ 
ner anderen Kassette zur Sicherheit ab. 
Danach legen Sie wieder die erste Kas¬ 
sette ein und starten das Generatorpro¬ 
gramm. Das File AUSTRAL.PIC wird 
nun automatisch an AUSTRAL. BAS 
angehängt. 

Und nun viel Glück bei der Eroberung 

Australiens. _ . .... 

(Jorg Bantin/jb) 


Ahb. I: Australien 
kann Ihr Glückskind 
werden, wenn Sie ge¬ 
nug Geld verdient 
haben, genug Land 
besitzen, nicht dau¬ 
ernd von Banditen 
aus geraubt werden, 
andere Besitzer Ihr 
Land nicht überneh¬ 
men und, und. und... 



8 ÄKilr, 

X-Ajrj3t*i t*r 
X=X*atsM£ ••• 

. kaufen 
lr=Laae« 
S=Soi(iat»R 
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Programm | 


für 464-664-6128 



•AUSTRALIEN* 


By» 


•JOERG BANTIN* 


SOO MODE 1 :INPUT"Name (max 8) 


, naS na$=L 


EFT$[na$,8) 

110 '••• INITIALISIERUNG *** 

111 0 IM mo$( 12 ) 

120 RANDOMI 2 E TIME 

121 SJA=INT(RND<1)»10)+70 

122 SMO=INT(RNO<1)•12> 

125 FOR i = l TO 12 :READ mo$( i ) NEXT 
130 x y z = 0 
140 ar =0 
150 pp=l 

160 a=10:b=10:be=l:)a=35 
170 1 and=l:geld =1010 
180 al=a* 12 :bl=-b *12 
190 so 1 = 10:mo = 0.5 

200 DIM felO(21.21):DIM preis(21.21) 

210 feld{ 10 . 10 ) = 1 

220 MODE 1:ORIGIN 194.318 

230 FOR i=0 TO 4 ■ I NK i ,0: NEXT : LOAD'austral 
.pic'iINK 1,24: INK 2,15. INK 3.3.BORDER 0 
240 TAG;MOV E - 114.74,2;PRINT USING"***' ; 1a 
nd; :MOVE -50.50:PRINT US1NG' **** ", sot : 

250 MOVE -170 ,-90,1:PRINT na$; 

260 TAGOFF.WINDOW 31,39,16,24;PEN 2 

270 PLOT 1. 1.2 :mo.=mo+0.5: IF mo>12 THEN mo = 
0.5:j a= j a+ 1 

271 TAG:mon=INT(mo) :M0VE -188,2 PRINT mo$( 
mon); :MOVE -34.2:PRINT USING"*#";)a. 

272 IF M0N=SM0 AND JA=SJA THEN 3000 
280 gcld=geld-(sol*l):geld=ge1d-(ar*l) 

290 IF geia >-l THEN 330 

300 TAGOFF:CLS: PRINT' Sie haoenkem Ge’d me 
hr !":PRINT"Ihr Tabakwird fuer"; PRINT 
0.5":PRI NT" Pfund":PRINT"‘ Pro T.":PRINT" 
verkauft":CALL &BB17 

310 geld=geld+INT(ta*0.5):ta=0:CLSTAG 
320 IF ge 1d< 0 THEN 2420 

330 MOVE -114,26:PRINT USING SB«##*' .geld 

340 IF ar»0 AND 0eb>0 ThEn GOSUB 1510 
380 MOVE 150,75:PRINT USING'»»*» 1 ;ar;:MOVE 
146,52:PRINT USING"*»«*»';INT(ta); 

390 IF xy2 = 0 THEN 460 

400 IF )and >INT(RND(1)*5 >+200 THEN 2500 
410 zu=INT(RND(l)*6) 

420 IF zu=1 THEN 1540 
430 IF zu*2 THEN 1720 
«LAGERHAUS VERBRANNT 
440 IF zu= 3 THEN 1930 

450 Zul=INT(RND(1)*LAND/5) 

451 IF zu 1=1 OR zul=2 THEN 2050 ARMEE 
460 x y 2 = 1 

470 ••• TASTATUR-ABFRAGE **• 

480 aS = UPPER$<INKEYS) : IF A$= 

490 IF a$=CHR$( 240 ) THEN 630 
500 IF aS=CHRS( 241) THEN 680 
510 IF a$=CHR$(242) THEN 730 
520 IF a$=CHR$<243) THEN 780 
530 IF a$="A"THEN 830 Angriff 
540 IF a$="8 THEN 1040 
550 IF aS- *' K " THE N 1170 
560 IF a$=”S"THEN 1400 
570 IF aS='E"THEN 1450 
580 IF A$="X "THEN 1630 
590 IF A$-= *' L " THE N 1680 
600 IF A$= W'THEN 270 
610 GOTO 480 
620 ••• NORD ••• 

630 PLOT a 1 ,b1,2:DRAW a1- 12,b1:DRAW al-12, 

bl+l2:DRAW a1,bl+12:DRAW al.bl 

640 b=b-l:IF b<1 THEN b=1 ELSE al=a*12.bl= 


HAENOLER 

UEBERFALL*ERBSCHAFT 


' STURM 


"THEN 480 
NORD 
SUED 
WEST 
' OST 


' Bebauen 
’ Land kaufen 
Soldaten kaufen 
'Arbeiter 
‘Siehern 
' Laden 
1 warten 


i 1022) 

(175) 

(513) 

1175) 

[629 ] 

1 773 ) 

I 1671] 

[3302] 

[ 1272 ] 

[ 478 ] 

[1777] 

[13201 

(2597) 

(1113) 

[ 460) 

[ 299 1 
l 128) 

[1866) 
[ 1«27) 
[1144] 
1 872 ) 
[1566] 
[645 } 

(1664) 
(5432) 

[3767] 

[ 164 7 ] 
(2490) 
(3450) 

(366B) 

[1601] 
(2332) 
(807) 
[9912] 


[2514] 
[ 460] 
[2637] 

[1707] 

[4283] 

[982] 

[ 1857] 
[1562] 
[2173] 
[4800] 

[1117] 
[1502] 
[2678] 
[463] 
[1329] 
[1820] 
[858 ] 
(986) 
(835 ) 
[946] 
[1410] 
(1996] 
[2185] 
[2177] 
[ 1232] 
[1627] 
[1114] 
[ 1981 ] 
[ 373 ] 
[SOI ) 
[3515] 

[2699] 


-0« 12 

650 PLOT a 1 ,Bl.1:DRAW al- 12.bl:ORAW al- 12, 14032 ] 

b1 * 12:ORAW al,bl+12:DRAW al.bl 
660 GOTO 270 
670 ••• SUEO •*• 

680 PLOT al.bl,2:ORAW al 12,bl DR AW al-12, 
b 1 • 12 : ORAW al.Bl+12 DRAW al.bl 
690 b=b+1:IF b > 20 THEN 0-2 0 ELSE al = a«12;b 
l=-b*12 

700 PLOT a 1 ,bl,1:DRAW a 1- 12,bl:OR aw al-12. 
bl*12;ORAW al ,bl + 12:ORAW al.bl 


[415] 

[ 576] 
[35151 

[2951] 

[4032] 


Listing Australien 


710 GOTO 270 [415] 

720 '*** WEST «•• [720] 

730 PLOT al,b1,2:DRAW al-12.bl DRAW al-12, [3515] 
bl* 12:DRAW a1.b1♦12 :ORaw al.bl 

740 a=a-l:IF a<l THEN a=l ELSE al=a«12:bl= [2340] 
-b» 12 

750 PLOT al.bl,l:0RAW a1- 12,b1:DRAW al-12. [4032] 
bl+12:ORAW al.bl+12:DRAW al.bl 

760 GOTO 270 [415] 

770 '*•* OST «*« [502] 

780 PLOT a1,b1,2:ORAW a1- 12,b1:ORAW al-12, [3515] 

bl+12:DRAW a1,bl+12:ORAW al.bl 

790 a = a+ 1 :IF a>20 THEN a = 20 ELSE al=a*12: [2891 ] 
bl=-b* 12 

800 PLOT al.bl,1:ORAW a1- 12,b1:DRAW al-12, [ 4032] 

bl+12:DRAW al,bl+12:DRAW al.bl 

810 GOTO 270 [415] 

820 *** ANGRIFF *•* 11355] 

830 TAGOFF;IF FELO(a,b+1)=0 AND FELO(a,b-l [9072 ] 
)=0 ANO FELD(a+1,b)=0 AND FELD(a-1,b)=0 TH 
EN PRINT"nicht".PRINT 'moeg11ch":CALL &BB17 
:CLS:GOTO 480 

840 TAGOFF:CLS:PRINT'AngriffIF F E LD(a,b [ 12069] 
)<>0 THEN PRINT ’niCht" PR INT"moeg1 'ch":p=0 
LOCATE 2,9:PRINT"(Taste)":CALL &BB17:CLS' 

GOTO 480 ELSE 0=0:FOR x=al-10 TO al-1 STEP 
2 

850 FOR y=bl+10 TO bl+1 STEP -2 [1127] 

860 IF TEST(x,y)<>0 THEN p=p+l ELSE GOTO 8 [2222] 
70 

870 NEXT y.NEXT x:IF p=0 THEN PRINT"nicht" [6067] 

:PRINT"moeg1ich" :LOCATE 2,9:PRINT '< Taste» 

:CALL &8817:CLS:GOTO 480 ELSE GOTO 880 
880 TAGOFF:CLS PRINT"AngriffIF FE L0(a.b [ 10972 ] 
)<>0 THEN PRINT'nicht":PRINT - moeglich' :LOC 
ATE 2.9:PRINT"<Taste>":CALL &BB17:CLS:GOTO 
480 ELSE GOTO 890 

890 IF so1=0 THEN PRINT“n1cht":PR I NT"moeg1 [ 7908] 
ich":LOCATE 2,9 : PRINT"<Taste>":CALL &BB17: 

CLS GOTO 480 ELSE GOTO 900 

900 geg=INT(RN0*6)+4 [585] 

910 Z = INT(RND*2) IF z-1 THEN geg = geg-l ELS [2313] 

E so 1 = so 1-1 

920 IF sol=0 THEN PR INT“ver1oren":TAG:MOVE [5978 ] 
-50,50:PRINT USING"**»* ",; SO 1 i :TAGOFF;LOCA 
TE 2,9:PRINT"<Taste>":CALL 6BB17:CLS:GOTO 
480 

930 IF geg = 0 THEN PR INT"gewonnen"•ka=1:GOT (3212) 

0 950 

940 T AG:MOVE -50.50:PRINT USING"*»»»";SO 1 ; [2225 ] 

T AGOF F:GOTO 910 


950 FOR x=al-10 TO al-1 STEP 2 [1473] 

960 FOR y=bl+10 TO bl+1 STEP -2 [1127] 

970 IF TEST(x,y)< >0 THEN p=p+l ELSE GOTO 9 [ 1999] 
90 

980 PLOT x.y.TEST(x.y) XOR 2 [1473] 

990 NEXT y:NEXT x (401) 

1000 IF p=0 THEN pp=0:GOTO 880 [1248] 

1010 feld(a.b)=l land=land+l [1969] 

1020 TAG:MOVE - 114,74,2:PRINT 1 and ; ' ; :T AG [ 5 747 ] 

OFF : LOCATE 2,9 : PR INT “ < T as te >'': CALL &BB17:C 
LS GOTO 480 

1030 *** BEBAUEN [1517] 

1040 IF ge 1d < 150 THEN TAGOFF PR!NT"nicht' ; [8033 ] 

PRINT "moegl ich":GOTO 480 ELSE IF feld(a.b) 

Ol THEN T AGOF F:CLS:PRINT"nicht":PRINT"moe 
glich":GOTO 480 

1050 p=0:FOR x=al-10 TO al-1 STEP 2 [1493] 

1060 FOR y=bl+10 TO bl+1 STEP -2 [1127] 

1070 IF TEST(x,y)<>0 THEN p=p+l ELSE GOTO [2162] 
1080 

1080 NEXT y:NEXT x:IF p = 0 THEN T AGOF F:PRIN [5176] 


T"nicht":PRINT'moeglich":GOTO 480 ELSE GOT 
0 1090 


1090 feld(a,b)=2 [581] 

1100 FOR x = a1-10 TO al-1 STEP 2 [ 1473 ] 

1110 FOR y=bl+10 TO bl+1 STEP -2 [1127] 

1120 IF TEST{x,y)< >0 THEN p=p+l ELSE GOTO [1991] 
1140 

1130 PLOT x.y.TEST(x.y) XOR 1 [1466] 

1140 NEXT y:NEXT x [401] 

1150 beb=beb+l:TAG:MOVE -100,-24 PHINT USI [6509] 
NG "*»*■'; beb ; : T AGOFF : ge 1 d = ge 1 d- 1 50 . T AG : MOV 
E -114,26:PRINT USING"*»»»*•";ge 1d;:GOTO 4 
80 

1160 •*» LAND KAUFEN *•• [1796] 

1170 CLS:TAGOFF•PRINT'kaufen: IF feldla.b [9419] 

)<>0 THEN TAGOFF:PRINT"nicht" PRINT"moeg11 
ch" :GOTO 480 ELSE T AG:GOTO 1180 

1180 p=0 [257] 

1190 FOR x = a1-10 TO al-1 STEP 2 [ 14 73 ] 

1200 FOR y = b1♦10 TO bl + i STEP -2 [1127] 

1210 IF TEST(x,y)< >0 THEN p = p+l ELSE GOTO [ 1975] 
1220 

1220 NEXT y:NEXT x [401] 


1230 IF c = 0 THEN TAGOFF :PR1 NT nicht 1 :»RIN T [ 2796] 
'moeglIch": GOTO 480 ELSE GOTO 1240 

1240 IF preis(a,b) =0 THEN p reis(a,b) = I NT ( R [2804] 
ND* 1000 ) +300 

1250 T AGOF F:CLS:PRINT"Landpre1s ;preis( [4173] 
a.b) 
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1260 IF ge 1d < pr THEn PRINT'zu wenig" PSIM 
Ge'd":GOTO 480 ELSE GOTO 1270 
1270 PR1NT"Kaufen" PRINT' (J/N) 

1280 a$=UPPER$lINKEY$) 

1290 IE a$=""THEN 1280 ELSE IF a$='J" THEN 
1310 

1300 IF «SO-J-THEN CLS: GOTO 460 
1310 TAG:ge'd=ge'd-preis(a,b):1and=1and+l: 
MOVE -1 14, 74,2:PRINT USING'*** ;land; MOV E 
- 114,26:PRINT USING "'*#****", g e I d ; 

1320 T AG:MOVE - 114,74,2;PRI NT USING"»*« ;1 
and; :MOVE -114,26:PRINT USING"*##»#»;ge 1d 
;:MOVE -50,50:PRINT USING »**';SOLMOVE 
-100.2,2:PRINT USING"»*» " ;INT(ze't) . 

1330 FOR x = al-10 TO al-1 STEP 2 

1340 FOR y=bl+10 TO Bl + 1 STEP -2 

1350 IF TEST(x,y)< >0 THEN p = p«l ElSE GOTO 

1370 

1360 PLOT x.y.TEST(x.y) XOR 2 
1370 NEXT y:NEXT x 
1380 feld(a,b)=l:CLS:GOTO 480 
1390 "**» SOLDATEN KAUFEN 

1400 TAGOFF:CLS:PRINT "Soldaten: ; PRINT 'wi 

ev 1 e!e' :PRINT "wo 11en":PRINT"s1e":PR I NT kau 
Ten ?" : INPUT— . s 

1410 IF g e1d < s* 50 THEN PRINT"nicht ' :PRINT 
moeg11c n":CLS:GOTO 480 ELSE SOl = 301+s:ge 1d 
=geld-s*50 

1420 CLS : T AG *. MOVE -114.26 PRINT USING'»**» 
##";geld;:M0VE -50,50:PRINT USING "»**«";s 
ol ; 

1430 GOTO 480 

1440 '*•■ ARBEITER EINSTELLEN/ENTLASSEN «* 

• 

1450 TAGOFF:CLS:PRINT Arbeiter: 

1460 PRINT "w i evte1e Arbeiter wollen sie 
ein- stellen ?":INPUT“",arb:ar=ar+arb 
1470 CLS:PRINT" Arbeiter:"" 

1480 PRINT"Wlev1e1e Arbeiter wollen sie 
ent 1assen" 

1490 INPUT'"';arb: ar=ar-arb 

1500 CLS:TAG:MOVE 150.75:PRINT USING"*«*» 

;ar; :GOTO 480 

1510 gew=ar/beb:IF gew>=10 THEN gew=lO»beb 
: ta=ta*gew:RETURN ELSE gew=10/100*gew»100 
gew=gew*0. 1 »beb:ta = ta*gew 
1520 RETURN 

1530 HAENOLER »** 

1540 PEN 2:TAGOFF:CLS::hpr=IN7(RND(1)*6)+l 
:PRINT'E1n Haendler bietet 1hnen";n 

pr; 

1550 PRINTPro TonneTabak an 

1560 FOR 553=1 TO 500:NEXT sss:CLEAR INPUT 
; FOR sss = l TO 1500;NEXT sss.CLS INPUT wiev 
iel Tonnen wollen sie verkaufen” 

; v kau f 

1570 IF wkauf<0 THEN v k au f = 0 
1580 IF »kauf>ta THEN vkauf=ta 
1590 geld=gelo*(npr«vkauf):ta=ta-vkauf 
1600 CLS;TAG:MOVE 146,52;PRINT USING "'*»»* 
* "' ; INT (ta ) ; 

1610 xyz = 0;MOVE - 114,26:PRINT USING •«»*» 
»";geld;;GOTO 390 
1620 *«• SICHERN *•« 

1630 TAGOFF:CLS:INPUT"Name,ns$:IF LEN(ns 
$)> 8 THEN 1630 

1640 CLS:OPENOUT ns$ WRIT£*9.nsS,ar.ta,so 1 

.mo.ja,land.geld.al,bl.beb.a.b 

1650 FOR a5=l TO 21 FOR b5=l TO 21.wRITE*9 

,feld(a5,b5),preis(a5,b5):NEXT:NEXT 

1660 CLOSEOUT ■ SAVE "!"+ns$+".PIC" , 8.4.COOO , 
64000 

1661 PRINT <Taste>"' ;CLEAR INPuTrCALL 4881 
7 CLS GOTO 480 

1670 "**• LADEN ■*■ 

1680 TAGOFF ;CLS: INPUT"Name ;"" ,ns$ IF L E N { ns 
S ) >e THEN 1680 

1690 CLSiOPENIN nsS: INPUT*9,na$,ar.ta,SO 1 . 
mo.ja.land.geld.al.bl,beb.a.b 
1 700 FOR a5 =1 TO 21 ;FOR b5=l TO 21 INPUT«9 
,Teld(«5.bS).prels(a5.b5) NEXT;NEXT 
1710 CLOSEIN LOAQ " !' *ns$* " .PIC .6COOO GOT 
O 1661 

1 720 aaa = !NT(RN0*8 ) 

1730 IF aaa=1 THEN 1780 UE8ERFALL 

1740 IF aaa= 2 THEN 1860 ERBSCHAFT 

1750 IF aaa=3 THEN 1890 LAGERHAUS VERBRAN 

NT 

1760 GOTO 460 

1770 »*■ UEBERFALL ••* 

17 80 TAGOFF :CLS:PRINT" Ueberfall- , 

1 790 PRINT'Sie sind vonPRI NT ' Band '. ten 
.PRINT "beraubt" PR I NT"worden !" 

1800 FOR 553= 1 TO 500 NEXT sss:CLEAR INPUT 
CALL 58817 

1810 verlustl=INT(RND*sol).IF verlustl<0 T 
HEN verlustl=0 

1820 ver1ust2 = INT(RN0*geid)-9eid/5 : IF v er1 
ust2 < 0 THEN ve r1us t2 = 0 


13323) 

[1622] 
[ 789 ] 

I 1462 ] 

[1360) 
[ 7404 ) 


(8639] 


[1473] 
[1127] 
[1993) 

[1473) 
[401] 
[2360) 
[ 2002 ) 
(8132) 


[5875] 


[ 4509 ] 


[ 3 73 ] 
[2908] 

[2420] 
[4769] 

E1915] 
[3895] 

[2134] 

[3033] 

[7453] 


[ 555] 
[971 ] 

[5290] 


[2365] 

[9846] 


[1097] 
(2089 ) 
[1515) 
[3327) 

[3305] 

11325) 
[ 2805 ] 


[5058] 

[3804] 

[3017] 

[ 255 7 ] 

[1116] 

[2835] 

[ 5557 ] 

[3437] 

[2473] 

[939 ] 

[1435] 
[1285] 
[1961 ) 

[ «56] 

[ 526] 
[2556] 
[5932] 

[3434] 

( 22 79 ] 

[3945] 


1830 PRINT : PRINT "Si e haben ; ve r 1 ust 1 ; PR [ 16329] 
INT'Soldaten"PRINT" und ;:PRINT US 

ING'"**»»*"" ;verlust2; : PRINT" Pfund" PRINT " 
verloren";PRINT:PR INT:LOCATE 2,9:PR I NT' <Ta 
ste >' :CLEAR INPUT:CALL 4BB17:ge1d = ge1d-ver 
1 US 12:sol=sol-verlustl 

1840 T AG:MOVE -114,26:PRI NT USING ****** [4709 ] 

. ge!d ; :MOVE -50,50:PRINT USING"»*** ;so1 ; : 

CLS:GOTO 460 

1850 '*«» ERBSCHAFT *»» [1672] 

1860 CLEAR I NPUT : T AGOF F : CLS ; PR INT " S i e habe [ 7037 ] 
n eine Erbschaft ueber 500" PRINT" 

PfundPR I NT“ gemacht " 

1870 FOR sss=1 TO 1300 NEXT sss:CLS:TAG:ge [4897] 
ld = geld*500:M0VE - 114,26;PR I NT USING **#» 

** .ge td ; :GOTO 460 

1880 LAGERHAUS VERBRANNT *»* [2468] 

1890 TAGOFFCLS [1326] 

1900 IF beb=0 OR ta=0 THEN 460 ELSE PRINT [14531] 
E1nPRINT"Lagerhaus ist verbrannt" 

; :PRINT"Sie haben“; PRINT USING " ••«*« " ; IN 
T(ta/beb);:PRINT" t."; :PRINT" Tabak":PRIN 
T " Ve rl or en ta = ta-INT (ta/beb) CLEAR INPUT 

1910 FOR 333=1 TO 1 500:NEXT sss;CLS:TAG:MO 
VE 14 6,52:PRINT USING"**#**';I NT(ta );:GOTO 
460 

1920 "*** STURM *»■ 

1930 aa=INT(RND*19)+l 
1940 bb=INT(RND*19)*l 
1950 IF feld(aa,bb)<>2 THEN 460 
1960 TAGOFF:CLS:PRINT'Eln Sturmhat " :PR I NT " 
eines ' :PRINT"Ihrer":PR INT"Felder PRINT 
zerstoert" 

1970 a2=aa*12:b2=bb«-12 
1980 FOR x=a2-10 TO a2-l STEP 2 
1990 FOR y = b2110 TO b2+l STEP -2 
2000 IF T E ST(x,y)O 0 THEN o=p+l ELSE GOTO 
2020 

2010 PLOT x,y,TEST(x,y) XOR 1 
2020 NEXT y:NEXT x 

2030 feld<aa. bb) = l : LOCATE 2.9 : PR I NT < T a s t e 
>":CALL &BB1 7:beb=beb-1:CLS:GOTO 460 
2040 *•» ANGRIFF EINER FEINDLICHEN ARMEE 

* • * 

2050 IF ka=-0 THEN 460 
2060 FOR 11=1 TO SO 
2070 aa=INT(RND«19)+l 
2080 bb=INT(RND«19)+l 

2090 IF fe1d(aa.bb)=2 THEN 2100 ELSE NEXT: 

GOTO 460 

2100 vert=0:sg=INT(RN0*6)+{SOl-5):IF sg<l 
THEN 460 

2110 TAGOFF■PRINT-EI ne" :PRINT Armee " .PRINT 
' gre 1 ft" : PRINT ' si e an !'";:CLEAR INPUT:CALL 
&B817:CLS 


2120 PRINT StaerkePRINT sg;"Mann" [3038] 

2130 PR IN7 ' Verteid1-gong [2687] 

2140 aS=INKEY$ [278] 

2150 IF a$ = CHR$(240)THEN vert=vert» 1 ;IF ve [2165] 

rtlsol THEN vert=sol 

2160 IF a$=CHR$(241)THEN vert=vert-1:IF ve [2193] 
r t < 0 THEN vert = 0 

2170 IF at=CHR$(13) THEN 2200 [764] 

2180 LOCATE 1,5 PRINT USING"*«*« Mann ;ver [3343] 

t 

2190 GOTO 2140 [351] 

2200 sol=sol-ver t [948] 

2210 CLS:PRINT USING"Geg.*«**';sg [1502] 

2220 PRINT USING'Ver.;««««';vort ' [1813] 

2230 h=INT(RN0«2> [747] 

2240 IF h=l THEN sg=sg-l:IF sg=0 THEN 2270 [2463] 


[4715] 


[341] 
[2053] 
(1009] 
[ 1011 ] 
[6029] 


[ 995 ] 
[1447] 
[1710] 
[2039] 

[1466] 
[ 401 ) 
[4574] 

[3309] 

[718] 

[ 808 ] 
[2053] 
[1009] 
[3523] 

[3223] 

[7757] 


2250 IF h=0 THEN vert=vert-l IF vert<l THE [3579] 
N ver t = 0:GOTO 2300 

2260 LOCATE 6 , 3 : PRI NT USI NG "* **«""; ve r t : LOC [5149] 
ATE 6,1:PRINT USING "*»#*",sg:GOTO 2230 
2270 LOCATE 6,1:PR INT USING ****";sg:CALL [ 2388! 
&8B17 

2280 CLS:PRINT‘Sie habennoen mal G’ucck":P [3161] 
RINT gohabt"•sol=so1+vert 

2290 LOCATE 2,9 PRINT" <Taste> " :TAG MOVE -5 [4947 ] 
0.50:PRINT USING «»»»;sol, CAlL S8817.CL 
SGOTO 460 

2300 LOCATE 6,3 PRINT USING"****";vert:CAL [5299] 
L &B81 7 CL S : PRI NT " S i e haben Land ": PR IN T "’ve r 


1 oren ! " 

2310 a2-aa*12 [566] 

2320 D2=Bb*-12 !724] 

2330 FOR x=a2-10 TO a2-2 STEP 2 [1351] 

2340 FOR y=b2»10 TO 02»1 STEP -2 [1710] 

2350 IF TEST{x,y)< >0 THEN o = P+l ELSE GOTO [204gj 

2370 

2360 PLOT x,y.TEST(x.y ) XOR 3 [1472 ] 

2370 NEXT y:NEXT x [401] 

2380 Iand=1 and-l .IF. feId(aa.bb) = 2 THEN beb [2845 ] 
=bcb-1 

2390 felolaa,bb ) =0 [605] 
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2400 LOCATE 2.9 PRINT <Taste>":TAG;MOVE -1 
14 . 74 , 2 : PRINT USING '«##';1 and;:MOVE -1C0,- 
24 PRINT USING '**»";beO; MCVE -50,50 PRIN 
T USING '**«»';sol ; :CALL &BB17:CLS:GOTO 460 
2410 »** BANKROTT •*» 

2420 MODE 1 

2430 FOR i = l TO 20:PRINT Sie Sind 

bankrott" ;NEX T 

2440 PRINT:PRINT" nochmal [J/N] 

2450 a$=UPPER$!INKEVJ) 

2460 IF a$ = THEN 2450 
2470 IF a$ < > " J " THEN CALL 0 
2480 RUN 

2490 '*** SIEG •*• 

2500 MODE 1:PEN 1 

2510 LOCATE 7.2 : PR 1 NT"Herz1ichen Glueckwun 
sch" 

2520 LOCATE 6,3:PRINT"- 


[9599] 


[ 1525 ] 
[ 506] 
[2504] 

[2205 ] 
[ 789] 
[929] 

[ 972 ] 

[ 243] 

[ 555 ] 

[1036] 
[4670] 

[2474] 


2530 LOCATE 4.6:PRINT"Ihre Feinde Haben au 
f gegeben" 

2540 LOCATE 4,8:PRINT" und sie naben die He 
erschaff 

2550 LOCATE 4.10 PRINT'ueber das Land wied 
ererlangt." 

2560 GOTO 2440 

9000 PEN 1:INK 1.13:MODE 1:FOR 1=1 TO 4 PR 
INT SPC(15);"RIP" 

9010 NEXT I 

9011 FOR A=1 TO 3 

9020 PRINT SPC(9);:FOR 1=1 TO 5:PRINT RIP 
; NEXT I 

9021 PRINT:NEXT A 

9030 FOR 1=1 TO 9:PRINT SPC(15);"RIP" 

9040 NEXT I 

9041 PRINT:PRINT Sie sind leider im ";mo 
Simon] ;J a+1800; SPC (10); 'verstorben' 

9050 PRINT:PRINT:G0TO 2440 

10000 DATA "Januar '".'Februar ",'Maer 
Z '"."April '","Mai '"."Juni 

"."Juli ".'August ' " , "September 

", Oktober ', November '.'Dezember 


[5618 ] 

[4145] 

[3857] 

[307] 

[2833] 

[ 375 ] 

[ 7 73 ] 
[3707] 

[ 9 72 ] 

[ 2092 ] 

[ 375 ] 

[6410] 

[ 1100 ] 

[12705] 


10 »««»**«»**«»»»*»•*•*«.»•« [694] 

20 • BasicHle AUSTRAL.GEN • [592 ] 

30 * erzeugt Spielfeld * [2590] 

40 • AUSTRAL.PIC • [208] 

50 [894] 

60 [117] 

70 ' Datas fuer Australien [931J 

80 ' [117] 


90 DATA 346,104.9.363,104.0,342,106,29,338 [2728] 
,108,43 

100 DATA 334.110.49,330,112,53,330,114.57, [1673] 
324,116,63 

110 DATA 322,118,65,322,120,65,320,122,69, [2202] 
320,124,69 

120 DATA 316.126,69,316,128,75,316,130.77, [2169] 

316,132,77 

130 DATA 314,134,81,312,136,83.310,138.89, [2560] 
216,140,5 

140 DATA 231,140,0,311.140,86,214,142,17,3 [2272] 
09,142,80 

150 DATA 393,142,4.212.144.31,255,144.0,30 [2710! 
9,144,76 

160 DATA 395,144,4,210.146,45,307,146,82,3 [1924] 
93.146,8 

170 DATA 208,148,55.267,148,0.305,148.96,2 [2430] 
06,150,61 

180 DATA 303,150,96,204.152.81,291,152,0,3 [2295] 
05.152,98 

190 DATA 204,154,91.305,154.100,204,156,20 [3085] 
1 ,204, 158,203 

200 DATA 204,160,203,202,162.209,202,164,2 [2458] 
07,204,166,205 

210 DATA 204,168.207,204,170,209,206.172,2 [1878] 
0 7,206,1 74,209 

220 DATA 208.176.207,208,178,209,208.180.2 [1888] 
09,208.182.211 

230 DATA 208,184,213,206,186,217,208,188.2 [2010] 

13.208.190.213 

240 DATA 208,192.215,208,194,217.208,196 2 [2093] 
17,206,198,221 

250 DATA 208,200,95,315.200,110.208,202.95 [2502] 
,315,202,106 

260 DATA 425,202.0,208,204,95,315,204,106, [2211] 

208,206.95 

270 DATA 315,206, 106,208,208,95,315,208'. 10 [2029] 
6,206,210,217 

280 0A 7 A 206,2 12,213.208.214,213,208,216,2 [2388] 

13.208.216.213 

290 DATA 208,220,213,206,222,217,208,224,2 [2164] 

13.208.226.213 

300 DATA 208,228,213,212.230,207,216,232,2 [2193] 
03,222,234,197 

310 DATA 226,236,193,230,238,189,230,240,1 11318] 
,235,240,184 



320 DATA 240,242,179,242,244.175,246.246,1 
69,254,248,159 

330 DATA 258,250,123,385,250,26,262,252,11 
3.385,252,28 

340 DATA 266,254,103,389,254,26,266,256,97 
.389,256,26 

350 DATA 266,258,89,387,258.28.270.260,81, 

389.260.26 

360 DATA 272,262,73,389,262.26.274,264,65. 

389.264.26 

370 DATA 276,266,63.389,266,24.278,268,61, 
389,268,24 

380 DATA 278.270,61,391,270,24,278,272,1,2 
83,272,56 

390 DATA 391,272,22.282,274,57,391,274.22, 
284,276,7 

400 DATA 297,276,44.391,276,22,266,278.1,2 
99,278,4 

410 DATA 307,278,34,391,278,14,298,280,5,3 
09,280,32 

420 DATA 393,280,10,306,282,37,391,282,12, 

304.284.39 

430 DATA 393.284,10,304.286,39,393,286.8,3 
04,288,39 

440 DATA 395,288,6.306,290.39,395,290,6,30 

6.292.39 

450 DATA 395,292,4.306,294,9,395,294,4,308 
.296,9 

460 DATA 397,296,2,396,298,1,396,300.1 
4 70 

480 Australien zeichnen 
490 

500 MODE 1:FOR d=l TO 151:READ a,b,c:PLOT 
a,b,1:DRAW a+c,D:NEXT 

510 FOR a= 78 TO 319 STEP 12 PLOT 194.a. 2.0 


RAW 435,a.NEXT:FOR a=194 TO 435 STEP 12 PL 
OT a,78:DRAW a,319 NEXT 

520 FOR a = 304 TO 312 STEP 2:PLOT a,.200,3:0 
RAW a.208:NEXT 
530 1 

540 Menue1 eiste 
550 ’ 

560 PLOT 0,22,3:ORAW 175.22:0RAW 175,252:0 
RAW 0,252:ORAW 0,22 

570 PLOT 5,26:DRAW 5,248:DRAW 171.248.DRAW 
171,26:DRAW S,26 
560 PLOT 5,207 DRAW 171,207 
590 PLOT 700,1,1 TAG 
600 MOVE 8,200 PRINT A=Angriff 
620 MOVE 8,182 PRINT B=Bebauen" 

620 MOVE 8,164 PRINT E=Arbeiter 
630 MOVE 8,146:PR I NT K=Land'; 

640 MOVE 8,128:PRINT " kaufen . 

650 MOVE 8,110:PRINT "L=Laoen': 

660 MOVE 8,92.PRINT 'S = So 1daten" . 

670 MOVE 8,74 PRINT w=Warten"; 

680 MOVE 8,56 PRINT 'X=5lchern'; 

690 TAGOFF 
700 ' 

710 Anzeigewlndow 
720 ' 

730 PLOT 0,274,1 ORAW 192,2?4;DRAW 192,326 

740 PLOT 0,274 DRAW 0,399 ORAW 440.399 

750 PLOT 0,302:DRAW 192.302 

760 PLOT 0,326:ORAW 238.326'-DRAW 238,374 

770 PLOT 0,350:DRAW 440.350DRAW 440,399 

780 PLOT 0,374:DRAW 440.374 

790 PLOT 192,374 DRAW 152,399 

800 TAG 

810 PLOT 700,1,2 

820 MOVE 6,392.PRINT'Land:MOVE 6.368 PR 
INT"So1 daten:"; :MOVE 6.344 PRINT'Ge 1d: ", M 
OVE 6,320 PRINfSeptember ; MOVE 160,32C:P 
RINT 88';.MOVE 6,296 PRINT Acker 
830 MOVE 200,392 PR I NT A-be1ter: 1 , MOVE 24 
4,368:PRINT "Tabak " ; 

840 TAGOFF 
850 

B60 Kompass 
870 

880 PLOT 528,272.2 DRAW 558,272 

890 DRAW 558,304:ORAW 598,304 DRAW 598,334 

:DRAW 558,334:DRAW 558,370 

900 ORAW 528,370:DRAW 52B,334:DRAW 488,334 
DRAW 488,304:ORAW 528,304 DRAW 528,272 
910 TAG 

920 PLOT 700,1,1 

930 MOVE 496,326 PRINT'W'. MOVE S78,326:PR 
INT"0';:M0VE 516,326:PRINT CHR$[242); MOVE 
556,326:PRINT CHR$(243); 

940 MOVE 537,364 PRINT'N'. MOVE 537,290 PH 
I NT"S"; :MOVE 537,344:PR 1 NT CHR$(240), MOVE 
537,312:PRINT CHR$(241), 

950 TAGOFF 

960 PLOT 544,320.1 :PLOT 542,320 
970 ' 

980 ' Eingabewindow 
990 ' 

1000 SYMBOL 255,55,17,115,194,155.56,44.36 
1010 WINDOW 30,40,15.25:FOR 1=1 TO 121:PRI 
NT CHR$(255);:NEXT.TAG.WINDOW 31,39,16,24 
PAPER 0:CLS:PEN 2 

1020 MOVE 624,15;PRINT CHR$(25S) 

1030 ' 

1040 abspeichern 
1050 

1060 SAVE :AUSTRAL.PIC",b,&COOO,&4000 


[1969] 

[ 1809 ] 

[2505] 

[1947] 

[2708] 

[2018] 

[ 1895 ] 

[2190] 

[1848] 

[2508] 

[2313] 

[1629] 

[1989] 

[2177] 

[1967] 

[117] 

[ 2201 ] 

[117] 

13582) 

[4098 ] 


[4334] 

[117] 

[1654] 
[117] 
[2669 ] 

[2949] 

[ 593] 

[932 ] 

[1672] 

[2402] 

[2766] 

[1874] 

[1985] 
[244 1 ] 
[2756] 

[1379] 
[2008] 

[1066] 
[117] 
[998] 
[117] 

[2059) 

[1803) 
[ 1212 ] 
[2474 ] 
[2197] 

I 1231] 

[ 1072 ] 
[318] 
[514] 
[11473] 


[ 2744 ] 

[ 1066 ] 
[ 117 ] 

[ 1099 ] 
1117 ] 
[ 1427 ] 
12297 ] 

[ 3569 ] 

[3181 
[ 519 ] 
( 5760 ] 


15705] 


[ 1066 ] 
(1408] 
[117] 

[ 1298 ] 
[117] 
[1795] 
( 5892 ] 


[2418] 
[117] 
[1169] 
[117] 
[3182 ] 


Listing Australien 


Listing Australien 
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I Programm 



Maßgenau 

Der Schildchendrucker 

— für jede Gelegenheit 

Haustüren, Lesezeichen, Briefkästen, Tassen, Computer - es gibt nichts, 
wo nicht in irgendeiner Form Schilder oder Schildchen angebracht werden, 
um auf den jeweiligen Besitzer hinzu weisen. Bevor Sie jetzt aber zum Ba¬ 
stelbogen greifen, sollten Sie sich eiiunal unser Programm ansehen. Ein 
Programm, welches die verschiedensten Schildchen erstellt, die Sie dann 
hinterher nur noch auszuschneiden brauchen. 


Vom Bastelbogen 
zum Bildschirm 

Der Schildchendrucker ist ein menüge¬ 
steuertes Programm, dies bedeutet für 
den Anwender also bequeme Arbeit. 
Nach dem Start gelangt man in das 
Hauptmenü, welches es ermöglicht, 
fünf Programm-Module anzusprechen. 
Man sollte dabei der Reihenfolge nach 
Vorgehen. Der erste Punkt gibt dem 
Anwender die Möglichkeit, die Maße 
(Länge/Breite) seines Schildchens in 
Millimetern einzugeben, womit nun 
alle Voraussetzungen zur Weiterarbeit 
mit dem zweitem Punkt gegeben sind. 
In diesem Punkt wird zunächst die An¬ 
zahl der Textzeilen, die das Schildchen 
enthalten soll, eingeben. Daraufhin te¬ 
stet das Programm, ob sich dies mit der 
Länge in y- Richtung vereinbaren läßt. 
Wenn dies so ist, kann der Text einge¬ 
geben werden. 

Danach sind die grundlegenden Dinge 
erledigt, und das Schildchen kann ei¬ 
gentlich schon gedruckt werden. Wenn 


man allerdings die Möglichkeiten sei¬ 
nes Druckers (Breitschrift, Schmal¬ 
schrift, usw.) nutzen will, kann man 
nach der Wahl des Textformates im 
dritten Menüteil den vierten Punkt, die 
Schriftartwahl, ansteuern. Dabei be¬ 
steht die Möglichkeit, jeder Zeile eine 
andere Schriftart zuzuordnen. Die 
Druckarten werden zu Beginn des 
Punktes mit ei¬ 
nem Kennbuch¬ 
staben, der in fast 
allen Fällen der 
Anfangsbuchsta¬ 
be der Schrift ist, 
aufgelistet. 

Nun kann man für 
jede Textzeile 
durch die Kenn¬ 
buchstaben eine 
Schriftart bestim¬ 
men, wobei noch 
angemerkt wer¬ 
den muß, daß die 
Schriftarten 
durch die Einga¬ 


be mehrerer Kennbuchstaben kombi¬ 
niert werden können. In diesem Pro¬ 
grammteil wird auch gleichzeitig noch 
getestet, ob der Text nicht zu lang ist. 
Der letzte Programmteil (Schildchen 
DRUCKEN) bringt nun das Schildchen 
auf den Drucker, und zwar so, daß man 
nur noch entlang der Rechteckslinien 
mit der Schere das Schildchen auszu¬ 
schneiden braucht. Weiterhin kann 
man dazu eigentlich nur noch sagen, 
daß dieser Programmteil mit einem Ep¬ 
son LX-800-Drucker entwickelt wur¬ 
de, und mit allen Druckern, die folgen¬ 
de Eigenschaften besitzen, laufen müß¬ 
te: 

— Grafikmodus einfacher Dichte 
60 PunkteUnch 

— Zeilenvorschub n/216 inch 

Die Steuersequenzen der verschiede¬ 
nen Schriftarten sind in den Datazeilen 
recht deutlich zu erkennen und können 
gegebenenfalls angepaßt werden. Das 
Speicherformat in der Datazeile sieht 
dabei folgendermaßen aus: 

- Anzahl der Steuercodes für Modus ein 

- Die Steuercodes 

- Anzahl der Steuercodes für Modus aus 

— Die Steuercodes 

Man sollte zum Programmteil 
DRUCKEN noch hinzufügen, daß das 
Programm mit dem normalen (nicht 
auf 8 Bit erweiterten) Druckerausgang 
des CPC arbeitet. Es ist aber trotzdem 
möglich, ein Linie der Länge von z.B. 
200 Punkten zu drucken. 

(Frank Schimmel/jb) 


Noch eine kleine Bemerkung zum Programm: 
Die Druckerroutine ist für den EPSON-Drucker 
LX 800 ausgelegt, läuft nach unserem Test aber 
auch auf anderen 9-Nadel-Druckern fehlerfrei. 
Sollte bei Ihnen die Höhe des Schildchens (durch 
die Y-Variable festgelegt) nicht mit der eingege¬ 
benen Millimeter-Anzahl übereinstimmen, so 
müssen Sie den Zeilen vorschub in den Zeilen ab 
1780 an Ihren Drucker anpassen. 
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BRANDHEISSE KNÜLLERPREISE 


tKOScmt { 


24 Pin Dnm 


transportUick 
Katri-Filr* 
HeaflClejinng Set 
CleanPrint 
UDU Sorten Filter 
HW Nargm Maker 
LocoScript 2 Fibel 





NACHRICHTENTECHNIK 


/ BFAMFELDER CH.215 
/ D-26CÖ HANBURG ?! 
/ IE.: 040-641 17 79 
FAX.: 040-641 17 76 


Schneider 

Euro PC mit Monitor MM 12 * MS-Works 
40 MB Festplatte oxtom für Eum PC 
Torgot PC (Porteble AT! 

Tower AT 220 mit Monitor MM 12 

mit Colormonitor CM 14 
Tower AT 360 mit EGA-Momtor EM 14 

mit Muftfecon-Mofl MS 14 
20 MB F.locard (Seagate. 40 ms Zugriffs- 
7«it. einbau- und anschlutAfen»g für all« 

PC 1512 und PC 1640) 

30-M0 Filocard (Seagate. 40 ms| 

Amstred 

PC 1640 mit 2 LW . Filocard 20 MB 

Monochromnvxvtor 2349. 

Colormonitor 269t. - 

EGA-Monitor 3149,- 

PC 209« SO 12 MO 2099. - SD 14 CO 

SD 12 HRCD 2949. SD 14 MRCO 

PC 2086 OO 1? MD 2649. - DD 14 CD 

DO 12 HRCD 3349. : DD 14 MRCD 

PC 2086 HD 12 MD 3149. HD 14 CD 

HD 12 HRCD 3949. HD 14 HRCD 

Portoo>e Computer PPC 512 m.t 2 Diskotton 
l*u 1 werken 15* 

PC 1640 SO mi SchwarTweiKmomtot 
m<t Colormonitor 

PC 1640 DD mit Schwar?wet6monitor 
m t EGA-Monitor 

PC 1640 HD 20 mi: Schwa r7w©<fjmonitor 
mit EGA-Moruuy 


EGA-Monitor für PC 1640 1299. - 

EGA-Monitor . EGA-Kano für PC 1S12 1699. - 

Amstrod CPC 6128 mit Ghjnmomtor 769 - 

Epsondruckar (dt. Handbücher, mit FTZ) 

Ansc^ußfcrtig an AMlGA. Schnedor PC Oder 
CPC. Atari ST od«r IRM-KompeM)!« 

IX 800 499 - 

FX 850 1119- 

LQ 600 869 - 

102550 3099- 

LQ 850 1469- 

LQ 1050 1899 - 

Stardruckar |dt Handbücher, mit FTZ) 

LC-10 m-t Commodoro cd Contronic*>m 549 - 

LC-10 Cofor Fsrt>drucker mit f nteriece 699. 

LC-24-10 mit Centronicelntorfaco 879 - 

NEC-Drocker (dt Hondbücher. mit FTZ) 

NEC P 2200 899 - . NEC P 7 Plus 1899. 

NECPflPiu* 1A49-. Firboplian 779- 

Superknüllor. 

24-Nadnldr IO 3500 ♦ fextverarbe-tungsprograrem 629 

Epson TinteMstrahldruckei IX 800 (240 Z/Sok.} 699 - 

Siemens eTX-Sysiom . 16* Farbmonitor (Vortührg.) 849. - 

Versendkoetenpauschale (Warenwert bis DM 1Ü0Q, -‘darüber; 
Vforauikasso (OM 8. .20 ). Nachnahme [OM 11.20-23.201. Aus 
land tDM 20. - .'50. -1 Lieferung nur gegen NN oder Vorauskasse. 
Ausland nur Votauskasse 

Preis .sto iComputertyp angebnnl geg**n Zusendung eines Frel- 
umschlags Prese gültig ab 10 4 89 


CSV Rlegert FAX (0 71 61) 1 35 87 

Schloßhofstr. 5, 7324 Rechberghausen, Tel. (0 71 61) 5 28 89 
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1030 PRINT"F ... Fettschrift (Emphasized) [ 342 1 ] 
1040 PR I NT " 0 ... Ooppe1d ruck (Oouble-strik [2919] 
e ) 

1050 PRI NT"K ... Kursivschrift (Italic) [ 302 1 ] 

1060 PRI NT"N ... NLQ (Sans Serif) [ 2256] 

1070 PRINT"R ... NLQ (Roman) [ 1404] 


1050 PRI NT"K ... Kursivschrift (Italic) [ 302 1 ] 
1060 PRI NT"N ... NLQ (Sans Serif) [ 2256] 
1070 PRINT"R ... NLQ (Roman) [ 1404] 
1080 PRINT:PRINT"Bitte beachten Sie, dass [4751] 
manche Druckarten" 

1090 PRINT"nicht kombiniert werden koennen [3576] 


1100 c$="BSF DKNR" 

1110 FOR 1 = 1 TO zeilen 
1120 PR I NT:PRINT text$(i) 

1130 PRINT:INPUT'Bitte Kennbuchstaben vor 
Druckarten eingeben: ".ken$ 

1140 ken$=UPPER$(ken$) 

1150 IF ken$=""THEN 1310 

1160 druckart$(i ,l) = "":druckart$(i ,2) = "” 

1170 FOR j=l TO LEN(ken$) 

1180 c=INSTR(c$,MID$(ken$,j,1)) 

1190 IF C = 0 THEN 1220 

1200 druckart$(i .l)=druckart$(i ,1)+dr$(c, 1 

) 

1210 druckart$(i,2)=druckart$(1,2)+dr$(c,2 

) 

1220 NEXT 

1230 IF INSTR(druckart$(1 ,1) ,dr$(l ,1) )>0 A 
ND INSTR(druckart$(i,1),dr$(2,1))>0 THEN t 
extdot(i)=LEN(text$(i))*7.2:GOTO 1270 
1240 IF INSTR(druckart$(i .1) ,dr$( 1 , 1))>0 T 
HEN textdot(i ) = LEN(text$(1 ))*12:GOTO 1270 
1250 IF INSTR(druckart$(i ,1 ) , dr$(2 , 1 ))>0 T 
HEN textdot(1)=LEN(text$(1))*3.5:GOTO 1270 
1260 textdot(1)=LEN(text$(i))*6 
1270 IF xdot-2>textdOt(i) THEN 1310 
1280 PR INT"De r Ausdruck: "CHR$(24)text$(i ) 
CHR$(24)" ist zu lang." 

1290 INPUT"Neue Eingabe: ",text$(i) 

1300 GOTO 1230 
1310 NEXT 
1320 RETURN 
1330 ‘ 

1340 ' Drucken 
1350 ‘ 

1360 IF weiter = 0 OR zeilen = 0 THEN RETURN 
1370 GOSUB 2020:PRINT"SchiIdchen DRUCKEN": 
PRINT:PRINT 

1380 PRINT"Drucker auf ON LINE stellen und 
Taste druecken.":CALL 4BB06 
1390 IF ROUND(xdot) MOD 256<128 THEN 1440 
1400 PRINT*8,CHR$(27)"K"CHR$(127)CHR$(INT( 
ROUNO(xdot)/256)) ; 

1410 PRINT*8,CHR$(4X1110110);:CALL 49000,1 
27+256*INT(ROUND(xdot)/256)-l,64 
1420 PRINT*8,CHR$(27)"K"CHR$(<ROUND(xdOt) 
MOD 256)-127)CHR$(0); 

1430 CALL 49000,((ROUND(xdot) MOD 256)-127 
) -1,64:GOTO 1460 

1440 PRINT#8,CHR$(2 7)"K"CHR$(ROUNDt xdot) M 
00 256)CHR$(INT(ROUNDt xdot)/256 ) ) ; 

1450 PRINTB8,CHR$(4X1110110);:CALL 49000.R 

OUND(xdot)-2,64 

1460 PRINT*8,CHR$(4X1110110); 

1470 vorschub=2*freiraum5-15+21 
1480 GOSUB 1800 
1490 ' 

1500 FOR i=1 TO zeilen-1 
1510 PRINT#8,druckart$(1 , 1 ) ; 

1520 IF fo rm(i ) = 1 THEN x1 = I NT((xdot-1extdo 
t(1 ) )/2) :GOSUB 2080:GOTO 1550 
1530 IF form(i ) = 2 THEN PR I NT88,druCkart$(i 
,2)" "druckart$(i,1)text$(1);:GOTO 1550 
1540 xl = R0UND(xdot-textdot(1) — 12):GOSUB 20 
80 

1550 PRINT*8,druckart$( i ,2) ; 

1560 vorschub=freiraum5+21 
1570 GOSUB 1800 
1580 NEXT 
1590 1 

1600 PRINT88,druckart$(1 ,1 ) ; 

1610 IF form(i)=l THEN x1 = INT((xdot-1extdo 
t( i ))/2).GOSUB 2 080:GOTO 1640 
1620 IF fo rm(i ) = 2 THEN PRI NT88,druckart$(i 
,2)" "druckart$(i,l)text$(1);:GOTO 1640 
1630 x 1 = ROUND(xdot-textdot(i) — 12 >:GOSUB 20 
80 

1640 PRINT88,druckart$( 1 .2) ; 

1650 vOrschub=2*f rei raurr>5 
1660 GOSUB 1800 
1670 ' 


Listing Schild 


[918] 

[ 998] 

[ 1219 ] 
[6155] 

[919 ] 

[1298] 
[2052] 
[870] 

[ 2679 ] 
[ 1422 ] 
[ 1606] 


[350] 

[5776] 


[1738] 
[2308 ] 
[4858] 

[ 3025 ] 
[ 365 ] 
[350] 

[ 555 ] 
[117] 

[1548] 
[117] 
[1454] 
[2187 ] 


[2633] 

[3843] 


[1615] 
[ 1651 ] 
[883] 
[117] 

[ 1052 ] 
[ 1054 ] 
[3384] 


[ 1211 ] 

[916] 

[883] 

[ 350] 
[117] 

[ 1054 ] 
[3438] 


[ 1211 ] 
[1162] 
[883] 
[117] 


1680 IF ROUND(xdot) MOD 256<128 THEN 1730 

[2623] 

1690 PRINT88,CHR$(27)"K"CHR$( 12 7 )CHR$( INT( 
R0UND(xdOt)/256> ) ; 

[3843] 

1700 PRINT#8,CHR$(4X111);:CALL 49000,127+2 

56*1 NT(ROUNDtxdot)/256)-l,1 

[5359] 

1710 PRINT#8,CHR$(27)"K"CHR$((ROUNDtxdot) 
MOD 256)-127)CHR$(0); 

[ 3988 ] 

1720 CALL 49000,((ROUND(xdOt) MOD 256)-127 
)-1,1:GOTO 1750 

[3219] 

1730 PRINT #8,CHR$(27)"K"CHR$(ROUND(xdot) M 
00 256)CHR$(INT(ROUNDtxdot)/256)); 

[5763] 

1740 PRINT#8,CHR$(4X111);:CALL 49000,ROUND 
(xdot) -2 . 1 

[4397] 

1750 PRINT#8,CHR$(4X111)CHR$(13) 

[2469] 

1760 RETURN 

[ 555 ] 

1770 ' 

[117] 

1780 ' Zei1envorschub und vertikaler Rand 

[1393] 

1 790 ' 

[117] 

1800 zaehler=0:ende=0 

[1330] 

1810 vo r1 = 21 

[ 796] 

1820 zaehler=zaehler+vorl 

[2511 ] 

1830 IF zaeh1er >ROUND(Vorschub) THEN PRINT 
#8,CHR$(27)"J"CHR$(ROUND(vo rschub)-zaeh1 er 
+v0rl)CHR$(13);:end e = 1 :GOTO 1860 

[7070] 

1840 PRI NT#8,CHR${27)"J"CHR$(vorl)CHR$(13) 

[2529] 

1850 ' 

[117] 

1860 IF ROUNDt xdot) MOD 256<128 THEN 1910 

[2986] 

1870 PRINTS8,CHR$(27)"K"CHR$( 12 7 )CHR$(INT( 
R0UND(xdOt)/256)); 

[3843] 

1880 PRINT#8,CHR$(4X110011);:CALL 49000,12 

7 + 256*INT(ROUND(xdot)/25 6)-l ,0 

[3414] 

1890 PRINT*8,CHR$(27)"K"CHR$((ROUND(xdot) 
MOD 2 5 6 )-12 7 )CHR$(0); 

[3988] 

1900 CALL 49000,(ROUND(xdOt) MOD 256>-127- 
1,0:GOTO 1930 

[3073] 

1910 PRINT#8,CHR$(27)"K"CHR$(R0UN0(xdOt) M 
00 256)CHR$(INT(ROUNDtxdot)/256)); 

[5763] 

1920 PRINT«8,CHR$(4X110011);:CALL 49000,RO 
UND(xdot)-2,0 

[3000] 

1930 PRINT#8,CHR$(4X110011); 

[1505] 

1940 PRINT#8,CHR$(13); 

[1113] 

1950 IF ende=l THEN RETURN 

[ 870] 

1960 GOTO 1820 

[ 383] 

1970 FOR j = l TO 7 

[630] 

1980 READ d:FOR 1=1 TO d:READ e:dr$(j,l)=d 
r$( i ,1)+CHR$(e):NEXT 

[4396] 

1990 REAO d:FOR 1=1 TO d:READ e:dr$(j,2)=d 
r $(J ,2)+CHR$(e) :NEXT 

[3414 ] 

2000 NEXT 

[ 350] 

2010 RETURN 

[ 555 ] 

2020 CALL 4BC02:CLS 

[ 743] 

2030 PRINT CHR$( 150)STRING$( 78, 154 )CHR$(15 
6) ; 

[2155] 

2040 PRINT CHR$(149)" SCHILDCHEN-DRUCKER 
vl.O von Frank Schimmel (1988)"; 

[ 5960 ] 

2050 PRINT TAB(80)CHR$(149)CHR$(147)STRING 
$( 78 , 154 >CHR$(153 ): PRINT : PRINT 

[2208] 

2060 RETURN 

[ 555 ] 

2070 Horizontalen Tabulatur um xl 

[ 1222 ] 

2080 IF ROUND ( x1 ) MOD 256<128 THEN 2130 

[2441 ] 

2 09 0 PRINT *8,CHR$(27 ) "K"CHR$ ( 127 ) CHR$ ( I NT ( 
ROUNO ( x1 ) /256 )); 

[3736] 

2100 CALL 49000,127+256*INT(ROUND(xl)/256 ) 

[2533 ] 

2110 PRINTH8,CHR$ ( 27 )" K"CHR$( ( ROUND(xl ) MO 
D 256)-127)CHR$(0) ; 

[ 3688 ] 

2120 CALL 49000, ( (ROUND(xl) MOD 256)-127), 

0 : GOTO 2150 

[ 1460] 

2130 PRINTK8,CHR$(27 ) "K"CHR$(ROUND(xl ) MOD 
2 56 )CHR$(INT ( ROUNO ( xl)/2 56) ) ; 

[ 5924 ] 

2140 CALL 49000,ROUND(xl) ,0 

[718] 

2150 PRINTK8,text$( 1);: RETURN 

[1517] 

2160 

[117] 

2170 ' DATAs zur Drucksteuerung 

[ 1443] 

2180 ' 

[117] 

2190 ' Breitschrift 

[ 635 ] 

2200 DATA 1,14,1,20 

[ 626 ] 

2210 ' Schmalschrift 

[ 473] 

2220 DATA 1,15,1,18 

[ 767 ] 

2230 ' Fettschrift 

[ 563] 

2240 DATA 2,27,69,2,27,70 

[ 790] 

2250 ' Doppeldruck 

[1433] 

2260 DATA 2,27,71,2,27,72 

[ 779 ] 

2270 - Kursiv 

[ 632 ] 

2280 DATA 2,27,52,2,27,53 

[ 1041 ] 

2290 ' NLQ (Sans Serif) 

[ 705 ] 

2300 DATA 6,27,120,1,27,107,1,3,27,120,0 

[ 1945] 

2310 ' NLQ (Roman) 

[712] 

2320 DATA 6,27,120,1,27,107,0,3,27,120,0 

Listing Schild 

[ 1653] 
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Das ist die Software zur PC-International 
— Jeden Monat neu — 


DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings 
der jeweiligen Zeit¬ 
schrift und alle 
Programmbeispiele 
auf Kassette oder 
auf 3” Diskette. 

— Programme sind, 
soweit system¬ 
bedingt möglich, auf 
allen drei CPC- 
Modellen lauffähig. 
Einzelheiten entneh¬ 
men Sie bitte der 
nebenstehenden 
Aufstellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, 
befinden sich alle 
Programme als 

,ready to run’ auf der 
Databox. 

— erscheint jeden 
Monat und trägt das 
Titelbild des gleich¬ 
zeitig erscheinenden 
Heftes. 

— der Datenträger zur 
PC International ent¬ 
hält außerdem je¬ 
desmal ein zusätzli¬ 
ches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



Amstrad 


CPC • PCW JOYCE • PC 


CeB IT 

Zwölfjährige knacken 
Unix-Rechner 


Grundlagen: 

Alles über 
Textverarbeitung 


Joyce: 


Super-Programme 
mit Pfiff 


Auf Tastendruck: 
Was leistet mein PC? 


Für alle CPCs als Kassette und 
3“-Diskette. 

Auch als Abonnement mit Preisvorteil 
erhältlich. 


Inhalt der Databox zu Heft 5/89: 


Programm 

464 

664 6128 

Tabak und Banditen 

• 

9 

9 

Maßgenau 

• 

9 

9 

Hexerei mit Data-Zeilen 

9 

9 

9 

Assembler-Ecke 

9 

9 

9 

1-KB-Format 

9 

9 

9 

1-KB-Morsetrainer 

9 

9 

9 

1-KB-Rosetten 

9 

9 

9 

I-KB-Fast-Screen-Filler 

• 

9 

9 

1-KB-Sequence 

9 

9 

9 

1-KB-Grafik 

9 

9 

9 

Der Saubermacher 

9 

9 

9 

1 need more Input 

9 

9 

9 

Byte für Byte ein Sprite 

9 

9 

9 

Bonusprogramm: Devour 




(Action-Spiel) 

9 

9 

9 

Die DATABOX enthält noch INFO-Files (‘.INF) 



Einzelbezugspreise für Databox: 

3 "Diskette 


Inland: 

Ausland: 


Einzelpreis 24,-DM 

Einzelpreis 

24,- DM 

zzgl. Versanükoslen 3,- DM 

zzgl. Versandkosten 

5.- DM 

Endpreis 27,- 0M 

Endprels 

29.- DM 


Kassette 


Inland: 

Ausland: 


Einzelpreis 14.- DM 

Einzelpreis 

14.- DM 

zzgl. Versandkosten 3,- DM 

zzgl, Versandkosten 

5,- DM 

Endprels 17,- DM 

Endprels 

19,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr. Bei Liefe¬ 
rungen ins Ausland ist Nachnahme nicht 
möglich. 

Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 


H 


Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland .100—DM 

Im außereuropäischen Ausland .120,— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150— DM 

Inr europäischen Ausland.160,— DM 

Im außereuropäischen Ausland. 180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland. 240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin.300,— DM 

Im europäischen Ausland. 320,— DM 

Im außereuropäischen Ausland. 360,— DM 

Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte. 

Widerrufsrecht: Wir garantieren jedem Abonnenten das 
Recht, seine Bestellung innerhalb einer Woche nach Ab¬ 
schluß schriftlich beim DMV-Verlag, Postfach 250, 
3440 Eschwege zu widerrufen, Die rechtzeitige Absen¬ 
dung des Widerrufsschreibens genügt zur Fristwahrung. 



— 

DMV-Verlag - Postfach 250 - 3440 Eschwege 

Bitte Bestellkarte benutzen! 
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Hexerei mit DATA-Zeilen 


Maschinenprogramme 
- mit ’HEX-DATA’ eingegeben 


tern kann. Bytes, die überflüssig sind, 
werden einfach gelöscht. 

Speichern kann man auch: Wer eine 
DATA-Wüste nicht in einem Mal 
durchschreiten will, kann Zwischen¬ 
speichern. Hat man es schließlich über¬ 
standen, ist man vor die Qual der Wahl 
gestellt, ein fertiges Binäiprogramm 
oder einen BASIC-DATA-Lader zu 
speichern. Wer sich nicht entscheiden 
kann, speichert beides. Außerdem 
kann man beim DATA-Lader noch 
wählen, ob man ihn mit der Zeilensum¬ 
me oder lieber ohne haben will (inter¬ 
essant, wenn man auch noch mit einem 
BASIC-Checksummer ganz sicherge¬ 
hen will, daß man sich nicht vertippt 
hat). 

Die Tastencodes des Editors 


CURSOR-Tasten 

Damit können Sie in die DATA-Zeilen 
gehen. 

< CTRL> +E 
Einfügen ein/aus 

< CTRL > + V 
Vorblättern 

< CTRL> +Z 
Zurückblättern 


Sehr oft werden Sie beim Abtippen mit DATA-Ladern konfrontiert, die eine 
hohe Konzentration erfordern, wenn man sich die Mühe nicht ein zweites 
Mal machen will. Um das Ganze wesentlich zu vereinfachen, präsentieren 
wir Ihnen hier ’ HEX-DATA’, den DATA-Hexer. 


Das Programm “HEX-DATA“ ist ein 
Editor zum vereinfachten Eingeben 
von DATA-Ladern. Konkret sieht das 
so aus, daß man nur noch die Zahlen 
eingeben muß — “DATA“, Beistriche, 
< ENTER >, Summe und Vorpro¬ 
gramm werden vom Programm er¬ 
gänzt. Damit das Ganze auch komfor¬ 
tabel ist, kann man natürlich mit dem 
Cursor auf den Daten herumfahren, 
einfügen und löschen. 

Bedienungsanleitung 

Nach dem Starten erscheint die übliche 
Werbung für den Autor. Dann aber 
will der Computer schon etwas Hand¬ 
festes wissen: Man hat die Wahl zwi¬ 
schen 

1. neue Daten 

2. fertiges Programm laden 

3. Daten laden. 

Die weitere Vorgehensweise sieht dann 
so aus: 

A) Eingabe von Startadresse und der 
Anzahl der Daten pro Zeile 

B) Namenseingabe 

Nun kommt man in den Editor: Hier 
gibt man einfach die Zahlen ein und der 
Computer ergänzt das Übrige. Außer¬ 


dem berechnet er jedesmal die Check¬ 
summe und zeigt die aktuelle Adresse 
zur Orientierung. Schreibt man über 
eine Seite hinaus, wird eine neue “auf¬ 
geschlagen“. 

Zwischen den Seiten kann man natür¬ 
lich blättern. Normalerweise ist der 
Overwrite-Modus eingeschaltet, und 
man kann Fehler leicht mit dem Cursor 
anvisieren und ausmerzen. Aber es gibt 
auch den Insert-Modus, wo man an der 
Cursorstelle die Zeichen noch erwei- 


< CTRL> +S 
Zwischenspeichern 
CLR 

Byte löschen 
DEL 

Byte bzw. erstes Nibble löschen 
ENTER 

endgültig speichern 

< CTRL > + C 
Gesamt-Checksumme 

Zum Programm 

Folgende Änderungen sind nötig, 
wenn Sie eines der folgenden Geräte 
besitzen: 

Für CPC464-Cassetten-Besitzer: 


Mit HEX-DA TA fällt 
Ihnen dos Eingeben 
von DATA-Wilsten 
wesentlich leichter. 
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Programm 


Zeile 130 ... zeig = &b84a 
240 ... aa=&ae43 


abgetippt werden. Programm im Spei¬ 
cher lassen!!! 


1. Den Datalader eingeben, speichern 3. Im Direktmodus (ohne Zeilennum- 

und starten. mern) eingeben: 

2. Das Basic-Programm abtippen und OPENOUT'd": MEMORY 

speichern. REM-Zeilen müssen nicht 5999.CLOSEOUT 


LOAD “hex2 “ 

a = &ae66 beim CPC464: a = &ae83 
POKE a,&bd:POKEa + 1.&18 
SAVE“hexdata “ 

Geschafft! 

(Marcus Weißenbacher/jb) 


für 464-664-6128 


10 '-Ueberschrift- 

20 MEMORY 12000 
30 MODE 2 

40 DEFINT a-z:DEFREAL 1 .h:1s = 24:1h = 0 
50 INK 0 . i h:INK 1.is 

60 LOCATE 39,8:PR I NT"H EX- OAT A":LOCATE 
39,9 PRINT STRING$(12,45) 

70 LOCATE 29,12:PRINT"Copyleft Colour-Sof 

t" 

80 FOR a=308 TO 392 STEP 8 
90 MOVE 243,260:DRAW a,228:DRAW 443,260 
100 MOVE 243,168:DRAW a,202:DRAW 443,168 
110 NEXT 

120 '-die Calls - 

130 prind=&1789:insert=&1770:kiear=&1770:s 

av=61823:init = & 18 0 F :zeig=&A79B 

140 reset=&180A:ldir = &185 3:sum=&17C4 summe 

= &1 883 :anza-& 1850 :doke=&189B 

150 patch=&183E:check=S18A5 

155 OEF FNl=P£EK(aa)+256*PEEK(aa) 

160 DEF FNa = UNT < FN1) 

170 DEF FN1 ae=l ast-adresse!:DEF FNrest = FNl 
ae MOD anz 

180 ' -waehlen- 

190 LOCATE 10,20:PRINT"- (N)eue Daten O 

DER Daten (l)aden ODER (P)rog. laden- 

200 a=0:CALL &BB18 

210 IF INKEY(36)THEN 320 

220 ' -laden- 

230 MODE 2:CAT:PRINT:INPUT"Namen$ 

240 IF a THEN LOAD n$,adr!:aa=&A760:1ast=a 

dresse!+FN1:GOTO 390 

250 INK 1 , ih:a = &C000:LOAD n$,a 

260 anz=PEEK(a):aa = a+1 :last=FNl 

270 aa=a+3:ad resse‘=FN1 

280 CALL 1 dir,a+5,FN1ae,adresse! :CLS 

290 INK 1 , i s 

300 GOTO 390 

310 ’-nicht laden- 

320 a=NOT INKEY(27) 

330 INPUT"Adresse:",adresse! 

340 PRINT:PRINT:INPUT"Anzahl:",anz 
350 IF an z <1 OR anz>23 THEN 340 
360 adr!=adresse!:1ast=adr! 

370 IF a THEN 230 

380 ' - Initialisierung - 

390 RESTORE 420 

400 su$="0123456789A8C0EFabcdef" 

410 FOR b=1 TO 12:READ a:su$=CHR$(a)+SU$:N 
EXT 

420 DATA 240,241,242,243,127,3,19,13,16,5, 
26,22 

430 DEF FNad!=adr!-<{adr!-ad resse! )M0D anz 

) 

440 MODE 2 
450 win=anz»3-l 

460 in$(0)="***•**":in$(1)=CHR$(24)+"Inser 
t"+CHR$(24):in=(win+6)\2 

470 p$=STRING$(win+l,42):LOCATE 6,1:PRINT 

p$; 

480 LOCATE 6,25:PR INT p$; 

490 WINDOW 6,win+6,2,24 
500 WINDOW»1,1,4,2,24 
510 WIND0W#2,win+7,win+10,2,24 
520 WINDOW#3,1,win+10,2,24 

530 ri(0) = -anz:ri(l) = anz: ri (2 ) = — 1 : ri(3) = 1 
5 40 CU$(0)=CHR$( 11) : cd$( 1 )=CHR$( 10) 

5 50 cu$(2) = STRING$(3,8) :cu$(3) = STRING$(3,9 

) 

560 panz=23*anz 

570 high=last-FNlae MOD panz 

580 ' 


[ 1268) 
[ 366] 
[513] 
[2082] 
[1321] 
[4735] 


[633] 

[2303] 

[2308 ] 

[350] 

[1236] 

[4367] 


[2006 ] 
[ 1088] 
[ 492 ] 

[2303 ] 

[1137] 
[ 5694 ] 


[1514) 
[870] 

[ 982 ] 
[3267] 
[4503] 

[ 1741 ] 
[1140] 
[2039) 
[2088] 
[561] 

[ 494) 

[1616] 
[ 1299] 
[ 1248 ) 
[1900] 
[1958] 
[1436 ] 
[ 368] 

[ 1794 ] 
[ 775 ] 
[970] 

[3024] 


[513] 

[921] 

[3491] 


[ 829 ] 

[ 865 ] 
[1376] 
[2243] 
[2014 ] 
[3144] 
[2664 ] 
[2576] 

[919] 

[ 1952 ] 
[117] 


590 ' *##»»»##»## Hauptprogramm *##*#»»##• r2047] 

# 

600 ‘-Variablen- [ 1340] 

610 1ow=high+panz-l [1053] 

620 adr!=high [624] 

630 CLS#3:CLS#2:CLS#1:CLS [1948] 

640 GOSUB 1120 [859] 

650 IF 1ast< = 1ow AND last>high THEN adr! = 1 [3682 ] 

ast:LOCATE FNrest*3+l,g\anz+l ELSE LOCATE 
1 , 1 

660 GOTO 1090 [393] 

670 ' -Tastaturabfrage- [ 1770] 

680 w$="" [497] 

690 CALL &BBBA [558] 

700 a$=INKEY$:i=INSTR<su$,a$):IF a$=""OR i [2716] 

=0 THEN 700 

710 CALL &BB8A [558] 

720 a=ASC(a$) [1036] 

730 IF a > 4 7 AND a<240 THEN 930 ELSE IF w$< [2918] 

>""THEN 690 

740 ON i GOTO B50,830,870.900 , 1240,1 240,11 [ 1658 ] 
70 

750 * *#**#*»## UP's #»##### [729] 

760 ' -Cursorsteuerung- [2195] 

770 b=a-240:hi 1f = adr!+ri(b) :IF hilffhlgh 0 [ 4407 ] 
R hi 1f>MIN(1ast, low)THEN 690 

780 IF P0S(«0)=1 AND adr!=last THEN LOCATE [3950] 
#1,1 ,VP0S(#0):PRI NT #1,CHR$(18); 

790 PRINT cu$(b); [1027] 

800 IF a=12 7 THEN adr!=adr!-1:GOTO 910 [2502] 

810 adr!=h11f:GOTO 1090 [1775] 

820 ' - Vor/zur. blaettern - [2419] 

830 h=high-panz:IF h>=adresse!THEN high=h: [3085] 
GOTO 610 ELSE 690 

840 ' [117] 

850 IF 1ow<1ast THEN high=high+panz:GOTO 6 [3315] 

10 ELSE 690 

860 ’-E i nf uegemodus- [1971] 

870 i ns= i ns XOR 1:SOUND 1 ,100+100*ins:LOCA [1660] 

TE#4,in,1:PRINT#4,1n$(ins); 

880 IF w$=""THEN 690 ELSE 1010 [1516] 

890 1 -Clear- [ 1253] 

900 IF ad r! = 1ast THEN 690 [1179] 

910 CALL k 1 ear,0,1 ast-adr!-1,adr!:1ast=1as [4034] 
t-1:GOSUB 1120:GOTO 1090 

920 • -Del- [1163] 

930 IF a <12 7 THEN 9 70 [966] 

940 IF w$< >""THEN PRINT CHR$(8)" M CHR$(8); [ 3200] 

:GOTO 680 

950 IF ad r!=high THEN 690 ELSE b=2:GOTO 78 [938] 

0 

960 ' -poken- [ 1428 ] 

970 PRINT a$; [420] 

980 w$=w$+a$:IF LEN(w$)=l THEN 690 [1740] 

990 IF ad r!=1ast AND ins THEN 870 [ 1037 ] 

1000 IF ins THEN PRINT CHR$(9);:CALL inser [4197] 
t,last-adr!,last:last=last+l 

1010 POKE adr!,VAL("&"+w$) [958] 

1020 IF ins THEN GOSUB 1120:PRINT CHR$(8); [1786] 

1030 CALL summe,MIN(1ast-FNad ! +1 , anz ),FNad [3455 ] 

! 

1040 ' - Variablen/Adresse - [1795] 

1050 ad r!=ad r! + 1 [ 703] 

1060 last=MAX(adr!,last) [1656] 

1070 IF ad r! >1ow THEN high=1Ow+1:GOTO 610 [2686] 

1080 PRINT","; [657] 

1090 IF P0S(#0)=1 AND 1ast=adr!THEN LOCATE [4835] 
#1,1,VP0S(#0):PRINT#1,CHR$(24)HEX$(adr! ,4) 
CHR$(24) ; 

1100 GOTO 680 [460] 

1110 '-Print UP- [ 1576] 

1120 g=(MIN(low+1,1ast)-FNad! ) : rest = g MOD [2343] 
anz 

1130 CALL prind,g\anz+256*anz,rest,FNad! [3115] 

1140 IF rest THEN PR INT#3.TAB(win+7);ELSE [ 5764 ] 
IF V POS ( # 3 ) < 2 3 OR lastdOw THEN PRINT#3,CH 
R$(18) ; 

1150 RETURN [555] 
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Programm—i 


1160 - Gesamtsumme - 

1170 CALL check,FN1ae,ad resse 

1180 aa=5998:LOCATEH4,6,25:PR;NTB4,FNl"=& 

HEX$(FNa); 

1190 CALL &BB18 

1200 L0CATE#4.6,25:PRINT»4,p$TAB(80); 

1210 GOTO 690 
1220 ' 

1230 '-save menue- 

1240 MOOE 2 : ch$(0 ) = "m1t ":ch$(1) = "Ohne " .f1 
= 0 

1250 h=ad'esse! 

1260 PRINT:X NPUT"Name:",n$ 

1270 IF n$=""THEN 440 
1280 IF a=19 THEN 1400 
1290 RESTORE 1330 
1300 FOR a= 7 TO 17 STEP 2 
1310 READ a$:LOCATE 32.a 
1320 PRINT a$;:NEXT 

1330 DATA » SAVE - Menue *,Save Bin . 

l.Save Dat . 2,Beides . 3,"mi 

t (C)hecksumme","Was nun -> 

1340 LOCATE 48,17:CALL &BB8A 

1350 a$=INKEY$:a=INSTR( 0123c",a$):IF a<2 

THEN 1350 

1360 CALL &8B8A 

1370 ON a-1 GOTO 1450,1480,1450 

1380 fl = fl XOR 1: LOCATE 32,15:PRINT ch$f fl 

) ; :GOTO 1340 

1390 -Up fuer Speichern- 

1400 CALL doke,h-2 , h 
1410 CALL doke.h-4,last 
1420 h = h-5 
1430 POKE h,an2 

1440 ' -Bi n saven- 

1450 SAVE n$,b,h,last-h 

1460 IF a= 2 THEN ENO ELSE IF a=19 THEN 390 

1470 ' - save datalader- 

1480 o=INSTR(n$IF O THEN n$=LEFT$(nS 
,0-1) 

1490 OPENOUT n$ + " . dat" 

1500 PR I NT B 9 , "10 memo r y'' h 

1510 PRINTB9, "20 for a="h" to "last-1 


1510 PRINTB9, "20 for a="h" to "last-1 
1520 PRINTB9,"30 read b$:poke a,val(chr$(3 
8 > + b$ ) " 

1530 IF f1=0 THEN PRINT»9,"40 2=Z+l:if 2= 
anz" then read b$:z=0" 

1540 PRINTB9,"50 nextzend" 

1550 2ei1e=70:CALL init,an2,adresse! 

1560 IF fl THEN POKE patch, &C9 :a a = z e i g:b=F 
Na:aa=aa+2 

1570 FOR a!= h TO last-FNrest-1 STEP anr 

1580 PRINT#9,zei1e;:CALL sav 

1590 GOSUB 1680 

1600 zei1e = zei1e +10 

1610 NEXT 

1620 IF FNrest THEN POKE anza.FNrest ELSE 
1650 

1630 PRINTB9,Zeile;:CALL sav 
1640 GOSUB 1680 
1650 POKE patch,&CD 
1660 CALL resetzEND 

1670 '- mit/ohne Checksumme - 


i1250] 
[1510] 
[ 3869 ] 

[ 389 ] 

[ 1,800] 
[ 458 ] 
[117] 

[ 1781 ] 
[3016 ] 

[ 508] 
[914] 
[316] 
[1313] 

[ 741] 

[1323] 
[ 746 ] 

[ 460] 

[ 5049 ] 


[983] 

[1617] 

[ 558] 

[1107] 

[2638] 

[ 1951 ) 
[ 818 ] 

[ 753] 

[ 464] 

[ 584 ] 

[ 1267 ] 
[ 864] 
[2289 ] 
[1754] 
[2497] 

[ 1102 ] 
[ 1940] 
[1628] 
[2837 ] 


[ 1332 ] 
[1517] 
[2656] 

[1576] 
[ 1525 ] 
[907 ] 

[ 568] 

[ 350 ] 
l 2678] 

[1525] 
[ 907 ] 

[ 736] 

[ 583] 
[2567] 


1680 IF fl THEN CALL doke,MAX(FNa-1,b),aa: [1641] 

PRINT #9 

1690 RETURN [555] 

1700 ’ -That's it - [ 1963] 


10 OPENOUT'd MEMORY 5999:CLOSEOUT 
20 ad r = 6000 

30 FOR a= 130 TO 330 STEP 10 
40 FOR d=1 TO 16 

50 READ b$:b=VAL{CHR$(38)+b$):POKE adr.t 
um=sum+b 
60 adr=adr+l 
70 NEXT 

BO READ b$: z = VAL( b$ ) : IF zosum THEN 

INT"Fehler in " ; a 
90 sum=0 
100 NEXT 

110 SAVE"hex2",b,6000,333 
120 

130 DATA dd,4e,02,dd,46,03,67,78,bl ,c8 , 
6b,62,fe,03,28,071D 

140 DATA 04,2b,ed,b8,c9,23,ed.bO,c9,cd, 
bb.97.bc, 20,02,0844 

150 DATA 3e , 20 , c6,07,32,04,18,32,d6, 17, 
e4,17,dd,46,04,0587 

160 DATA dd . 4e , 05,d5,fd,el,cd,da, 17,97, 
28,Ob,c5,41,cd,0 8 F 6 

170 DATA 62,18,Cd,c4, 17 , cl , 10, f5 , dd , 46, 
97,b8,C8,cd,62,0853 

180 DATA 18 , c3,95,18,eb,cd,9c,bb,21,04, 
36,0 7, 7a,Cd,f4,074C 

190 DATA 17,7b,Cd,f4,17,36,27,cd,9c,bb, 
00,00,55,C9.06,0630 

200 DATA 02,eb,18,02,06,03,cd,78,bb,4d, 
Cd,b4,bb,69.26,0 6A0 

210 DATA 01,c3,75,bb,4f,Of,Of,Of,Of,cd, 
17, 79,e6,0f,fe,06CC 

220 DATA Oa.38,02,c6,07,c6,30.c3.5a,bb , 
5a,bb,18,03,21,0551 

230 DATA 95.bc,22,08,18,22,76,18,ed,53, 
18 , dd, 7e,02,32,05 7B 

240 DATA 50,18,c9.06,05,21.4b.18.7e,23. 
95,bc,10,f9,fd,0685 

250 DATA 2a , 51 , 18,46 . cd.da.17,cd.6d,18, 
22,51 , 18,cd.c4,0702 

260 DATA 17,3e,Od,cd,95,bc,3e.Oa,c3,95. 
44,41,54,41,20,0616 

270 DATA 00,00,00,dd,66,05,dd,6e,04,dd. 
03,dd,4e,02,ed,05D7 

280 DATA b0,c9,fd,e5,dl,cd,c5,17,3e,20, 
5a,bb,cd,7b,18,0975 

290 DATA cd , f4, 1 7,3e.2c,Cd,5a,bb,10,f3, 
fd , 7e,00,5f, 19,0 7E3 

300 DATA fd,23,c9,d5,fd,el,dd,46,02,78 , 
00,c8,cd,da,17.09BD 

310 DATA cd,7b,18,10,fb,cd,df,17,c3,c5, 
dd,66,03,dd,6e,085E 

320 DATA 02,73,23,72,c9,d5,fd,el,dd,46, 
dd , 4e,02,cd,da,0880 

330 DATA 17,cd,7b,18,Ob,78,bl,20,f8,22, 
17,c9,00,00,00,0533 


[2778] 
[501 ] 
[1113] 
[1165] 
[ 3344 ] 

[ 392 ] 

[ 350] 

[3071] 

[431 ] 

[ 350 ] 
[470] 
[117] 

[3104 ] 
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blatthai ter + LocoScript 2.16 m. 
dt. Benutzerhandbuch frei Haus 
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Ist Ihr Programm der HIT ? 

Der DMV Verlag sucht ständig 
nach neuer, interessanter 
Software zur Aufnahme in 
unser Softwaresortiment. 

Dabei ist es einerlei, ob Sie nun 
ein Anwendungs- oder ein 
Spielprogramm geschrieben haben. 

Der DMV Verlag bietet Ihnen sein 
Software-Know-How an! 
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Das Software-Experiment 

Ungewöhn liche Program me auf 
dem CPC 

Autor: Matthias Uphoff 
Vertrieb: DMV-Verlag, Eschwege 
Monitor: Farbe/Grün 
System: AMS-DOS 
Steuerung: Tastatur/Joystick 
Datenträger: Kassette/Diskette 3“ 
Preis: Kassette 59.— DM 
Diskette 69. - DM 

Seit kurzem bietet der DMV-Verlag in¬ 
teressante Programme für den CPC an. 
Sie sind deshalb interessant, weil sich 
die Programme mit ganz besonderen 
Anwendungsgebieten beschäftigen. 
Angefangen hat es im Jahre 1986 in der 
damaligen CPC Schneider Internatio¬ 
nal. Dort wurde im Rahmen eines 
Lehrganges auf die Besonderheiten der 
Künstlichen Intelligenz eingegangen. 
Das Ziel war, den Lesern zu zeigen, 
wie der CPC eigene Entscheidungen 
fällen kann. In welchem Rahmen eine 
Verwirklichung möglich ist, sollen 
zehn hochbrisante Programme zeigen. 
Die Beschreibung wird in einem über 
180-seitigen DIN-A5-Ringbuchordner 
ausführlich dokumentiert. Zur bildli¬ 
chen Vorstellung werden ausreichende 
Hardcopies zur Unterstützung bereit¬ 
gestellt. 

Das es aber noch einige andere außer¬ 
gewöhnliche Anwendungen zu erfor¬ 


schen gibt, sollen die weiteren neun 
Experimente, von der komplexen 
Computergrafik bis hin zur Überle¬ 
benssimulationen zeigen. 

Komplexe Grafiken: Vielen Lesern 
wird der Begriff 'Apfelmännchen’ be¬ 
kannt sein. Aber die wenigsten Leser 
werden wissen, worauf die komplizier¬ 
ten Grafiken beruhen. Auf sechzehn 
Seiten werden die Grundlagen be¬ 
schrieben. 

Das Spiel des Lebens: Mit einer Zelle 
fangt das Leben an, so könnte man die¬ 
se Simulation beschreiben. Doch das 
ist nicht ganz richtig; hier wird das 
Programm in zwei Teile getrennt; und 
zwar in eine ’sechsstrahlige Symme¬ 
trie’, also ein Versuch, eine Verbrei¬ 
tung der Zellen zu untersuchen. Ein 
zweiter Teil beschreibt das sogenannte 
'Fressen und Gefressenwerden’. Auch 
bekannt unter dem Namen ’Game of 
Life’. 

Das Ökologie-Experiment: Anhand 
eines ökologischen Systems werden 
Einflüße der Umwelt und andere Ver¬ 
änderungen des Systems in einer Simu¬ 
lation getestet. Ein Beispiel ist das 
“Wolf-Gras-Schaf-Modell“. 

Der Computer als Stratege: In diesem 
Kapitel wird anschaulich auf die 
Grundlagen der Künstlichen Intelli¬ 
genz eingegangen. Als Beispiel dient 
das Spiel ’Go Bang’. 

Mit roher Rechengewalt: Analyse 
und Kombination beherrschen dieses 
Kapitel. Wie Spielstärke abhängig von 
der Tiefe der Analyse ist, wird anhand 
eines afrikanischen Spieles ’Kalaha’ 
erklärt. 

Der Computer lernt... Wie der Com¬ 
puter lernt und daraus Schlußfolgerun¬ 
gen zieht, wird nicht nur anhand eines 
Mini-Schachspiels erklärt. Das Beson¬ 


dere daran: Das Programm wird mit je¬ 
dem Spiel besser. 

Wordmaster: Denken Sie sich ein 
Wort aus, und der Computer rät es. 
Was dahintersteckt und wie solche Pro¬ 
gramme programmiert werden, wird 
anhand eines intelligenten Programms 
besprochen. 

Wortketten: In diesem Kapitel be¬ 
schäftigt man sich mit dem Gedanken, 
wie man aus Geld Bier machen kann. 
Natürlich ist hier nicht die Realität ge¬ 
meint, sondern das Wort 'Geld’. Wie 
der CPC dieses Rätsel löst, wird an¬ 
hand von vielen Beispielen erklärt. 

Entwicklungshilfe per Computer: 

Sie befinden sich in Westafrika, wo 
sich eine Dürrekatastrophe ereignen 
soll. Werden Sie es schaffen, in dieser 
weltbewegenden Simulation Menschen 
und Tiere zu retten? 

Pascal läßt grüßen: In diesem letzten 
Teil wird auf einigen Seiten beschrie¬ 
ben, wie aus einer Strukturformel er¬ 
staunliche Grafik erzeugt werden 
kann. 

Fazit: Man darf ohne Übertreibung sa¬ 
gen, daß diese Programme ihr Geld 
wert sind, weil Simulationen und 
künstliche Intelligenz ausführlich be¬ 
schrieben und nachvollzogen werden 
können. 

Nulxeflökl Bixlinntngü Dc*i* Gratik A.'tefli- Pi&a» 

tffrjndiichkeli roeniaton Loisiuns 



Daß die Grafik teilweise zu kurz 
kommt, kann getrost vergessen wer¬ 
den, denn darauf kommt es nicht an. 

(cd) 



liikl 1: Dieses Bild entstund durch einen einzelnen Punkt'. 


Bild 2: Waden Sie zum Entwicklungshelfer in den Savannen Afrikas. 
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Einzelbezug 

»DATABOX« 


Absender: /mite germiin Anschrift angehen.'J 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


Name 


Vorname 


Firma 


DMV-Verlag 
PC International 
Postfach 250 


Straße/Nr. /Postfach 


PLZ/Ort 


3440 Eschwege 



AMSTRAD 


»Bücherservice« 

Absender: 


Name. Vorname 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


Straße, Haus-Nr. 


PU. Ort 


DMV-Verlag 
DOS International 
Postfach 250 


Telefon 


3440 Eschwege 



» Bestellservice» 


Absender: (Bitte genaue A nach ritt nngeben // 

Name 

Vorname 

Firma 

Straße/Nr./Postfach 

PLZ/Ort 


Antwortkarte 

DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 
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Das Software-Experiment 

Ungewöhnliche Programme auf 
dem CPC 

Autor: Matthias Uphoff 
Vertrieb: DMV-Verlag, Eschwege 
Monitor: Farbe/Grün 
System: AMS-DOS 
Steuerung: Tastatur/Joystick 
Datenträger: Kassette/Diskette 3“ 
Preis: Kassette 59.— DM 
Diskette 69. — DM 


sehen gibt, sollen 
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Computergrafik b 
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Seit kurzem bietet der DMV-Verlag in¬ 
teressante Programme für den CPC an. 
Sie sind deshalb interessant, weil sich 
die Programme mit ganz besonderen 
Anwendungsgebieten beschäftigen. 
Angefangen hat es im Jahre 1986 in der 
damaligen CPC Schneider Internatio- 
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»Einzel heft-/Databox-Bestellung« 

Ich bestelle folgende Einzelhefte bzw. Databoxen 
von »PC Amstrad«: 


Einzelheft 

Ausgabe 

6.- DM/Stck 

CPC 

Kassette 

14,- DM/Stck. 

CPC 

3“-Diskette 
24,- DM/Stck. 

Joyce 
3"-Diskette 
24,- DM/Stck. 

PC 1512 

51/4"-Diskette 
24,- DM/Stck. 

n 

1/88 

□ 

□ 

□ 

□ 

n 

2/88 

□ 

□ 

□ 

□ 

n 

3/88 

□ 

□ 

□ 

□ 

n 

4/88 

□ 

□ 

□ 

□ 

n 

5/88 

□ 

□ 

□ 

□ 

n 

6/88 

□ 

□ 

□ 

□ 

n 

7/88 

□ 

□ 

□ 

□ 

n 

8/88 

□ 

□ 

□ 

□ 

n 

9/88 

□ 

□ 

□ 

□ 

n 

10/88 

□ 

□ 

□ 

□ 

n 

11/88 

□ 

□ 

□ 

□ 


12/88 

□ 

□ 

□ 

□ 

n 

1/89 

□ 

□ 

□ 

□ 

n 

2/89 

□ 

□ 

□ 

□ 

n 

3/89 

□ 

□ 

□ 

□ 

n 

4/89 

□ 

Q 

□ 

□ 


5/89 

□ 

□ 

□ 

□ 


CPC-Sonderhefte (bitte ankreuzen): 

312 □ Sonderheft 6/88 

313 □ Sonderheft 7/88... 14 


+ Porto/Verpackung r 

(Inland 3.- DM. Ausland 5.- DM)- L 

Gesamtbetrag: - c 

□ Diesen Betrag zahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme (nur innerhalb der BRD). 

(Bel Nachnahme kommt rum o.g Betrag noch die Nachnahmegebühr hinzu) 


Datum 


Unterschritt (bol Minderjährigen Unterschritt des gesetzlichen Verholet«) 


664 - 6128 
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Paranoia Komplex 

Hersteller: Micro Partner 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick 
Preis: ca. DM 50, — 

CPC 464 Kl CPC 664 1X1 CPC 6128 1X1 

Dein Freund der Computer 


Wir schreiben das Jahr... irgendwann 
in der Zukunft. Der Computer hat die 
Macht über die Menschheit ergriffen, 
jedoch er ist nicht bösartig, jedenfalls 
nicht auf den ersten Blick. Die Men¬ 
schen leben nur noch für Ihren Freund, 
den Computer, denn dieser will ihnen 
nur Gutes tun. Jeder ist glücklich, denn 
wer nicht glücklich ist, gilt als Verräter 
und wird eliminiert. Doch das ge¬ 
schieht sehr selten. Normalerweise 
wirst du von deinem Freund, dem 
Computer, beschützt. Er sagt dir. 
wann du auf die Toilette mußt, wann es 
Zeit zum Essen und zum Schlafen ist. 
Aber was ist nun passiert ? Nun, ein 
Mensch war nicht glücklich, sondern 
ist durchgedreht. Er muß gefunden und 
ausgeschaltet werden, da er eine Ge¬ 
fahr für die Menscheit darstellt. 

Pa.. Pa.. Pa.. Paranoia 

Das Spiel präsentiert sich mit einem 
Bildschirm, der in zwei Hälften unter¬ 
teilt ist. In der oberen befindet sich der 
Status des Spielers. In ihm kann man 
solche Dinge wie Leben. Ausrüstung 
und Rang innerhalb des Roboter-Impe¬ 
riums ablesen. Hier erscheinen auch 
Nachrichten vom Freund Computer. 
Sowohl die Nachrichten als auch der 
Rang sind wichtige Dinge. Also be¬ 
schäftigen wir uns etwas näher mit ih¬ 
nen. Der Rang zeigt uns, wie hoch wir 
in der Hierarchie des Computers ge¬ 
stiegen .sind. Je höher dieser Rang ist, 
desto mehr Informationen erhält man. 
Die Nachrichten geben uns Hinweise, 
was als nächstes zu tun ist. Da kommen 


Der Computer: dein 
Freund und Helfer? 
Das muß sich hier 
noch zeigen. 



Nachrichten rein, wie z.B.: “Du mußt 
dringend auf die Toilette“ oder “Deine 
Unterwäsche ist schmutzig“. Aber es 
gibt auch wichtige Nachrichten, in de¬ 
nen darauf hingewiesen wird, daß je¬ 
mand aufmüpfig ist oder wo jemand zu 
finden ist. Ziel des Spiels ist es, aus der 
Welt des Computers zu fliehen. Dies 
geht aber nur, wenn man sich bei ihm 
einschmeichelt und dadurch in seiner 
Hierarchie steigt. Natürlich versucht 
der Computer, dieses zu verhindern. 
Dazu bekommt man von ihm den Auf¬ 
trag, sich einen Droiden zu beschaffen. 
Durch diesen hat einen der Computer 
ständig unter Kontrolle. Sollte man es 
nun schaffen, der Welt zu entkommen, 
wird man stante pede vom Droiden eli¬ 
miniert. Deswegen sollte man versu¬ 
chen, den Kauf des Droiden zu meiden, 
indem man sich immer mit (nutzlosen) 
Kleinigkeiten eindeckt, um so sein Fi¬ 
nanzkapital gering zu halten. Dadurch 
ist man nicht in der Lage, den Droiden 
zu kaufen, und kann sich der 100%igen 
Kontrolle des Computers entziehen. 
Für jeden Auftrag, den der Computer 
erteilt, hat man eine bestimmte Zeit zur 
Verfügung. Sollte diese überschritten 
werden, ist das Spiel beendet. 

Fa/it 

Paranoia Komplex ist ein Spiel, das 
von der ersten Spielminute an gefallen 
konnte. Es ist komplex aufgebaut und 
verspricht langanhaltenden Spielspaß. 
Die Grafiken sind für CPC-Verhältnis¬ 
se überdurchschnittlich gut. Man kann 
sich nach einiger Spielzeit und mit der 
richtigen Phantasie gut in die Welt des 
Bildschirmhelden versetzen. Das ge¬ 
samte Programm ist gut durchdacht 
und wurde mit viel Liebe zum Detail 


programmiert. Die Nachrichten, wel¬ 
che vom Computer eingeblendet wer¬ 
den, sind erheiternd und tragen viel 
zum Spielspaß bei. 

Spteltfoe Bedleounjp- Daku- Grafik Sound Pro® 
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Auch beim Sound wurde auf Details 
geachtet. Sollte der Held auf der Toi¬ 
lette sein, hört man, wie er artig spült. 
Alles in allem ist Paranoia Komplex ein 
Programm, das überzeugen konnte. Es 
ist rundum gelungen, was beim Kon¬ 
zept anfängt und mit der Realisierung 
auf dem Computer aufhört. Jeder CPC- 
Besitzer sollte beim Softwarekauf den 
Paranoia Komplex genauer betrachten. 

(rg) 

Camelot Warriors 

Hersteller: Mastertronic 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: DM 9,95 

CPC 464 IXI CPC 664 IH CPC 6128 1X3 

Reise ohne Wiederkehr 

Mastertronic ist unzweifelhaft eine der 
produktivsten Firmen auf dem Low- 
Cost-Sektor. Mit Camelot Warriors hat 
Mastertronic nun ein Arcadenadven- 
ture für den CPC vorgelcgt, in dem Sie 
einen Ritter verkörpern, der ein magi- 
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Es ist nicht einfach, 
unseren etwas unge¬ 
lenken Helden durch 
die Fährnisse der 
einzelnen Zonen zu 
manövrieren. 


m 


sches Geheimnis entschlüsseln muß. 
Vier Welten gilt es zu überleben, bis 
schließlich die Geheimnisse der Burg 
Camelot zu lüften sind. Die vier Wel¬ 
ten, die bis zur Burg durchkämpft wer¬ 
den müssen, sind zum einen ein Wald, 
der besondere Tücken birgt. Viele 
Feinde sind dort am Boden versteckt, 
und machen erst auf sich aufmerksam, 
wenn der Spieler in unmittelbarer Nähe 
ist. Erschwerend kommt hinzu, daß 
noch Druiden zu finden sind, die dem 
Spieler mit Zaubersprüchen einheizen. 
In der zweiten Welt, der Seewelt, war¬ 
ten dann mörderische Fische und elek¬ 
trische Medusen auf den unerschrocke¬ 
nen Abenteurer. In der dritten Welt, 
der Höhlenwelt, hat der Spieler dann 
einen mächtigen Drachen zum Gegner, 
der zu allem Überfluß noch schwarze 
Schatten zur Unterstützung herbeiho¬ 
len kann. Nur ein geschickter Abenteu¬ 
rer kann rechtzeitig den Ausgang aus 
dieser Höhle finden und so überleben. 


Ungeschickt läßt grüßen.. 


Zunächst gilt es jedoch, die erste Szene 
zu überleben. Dies ist nicht einfach, 
wenn man die Interaktionsmöglichkei¬ 
ten unseres Helden in Betracht zieht. 
Nach rechts und links kann sich der 
gute Held wenden. Wenn die Situation 
es erfordert, ist auch ein Sprung in eine 
der beiden Richtungen möglich. Zur 
Selbstverteidigung kann dann noch das 
Schwert gezückt werden. Wer aller¬ 
dings glaubt, hier einen edlen Schwert¬ 
kampf sehen zu können, der wird ent¬ 
täuscht. Es wirkt im Gegenteil eher 
jämmerlich, wie unser Held mit dem 
Schwert wild um sich schlägt. Man 
sollte sich von diesem Umstand aller¬ 
dings nicht entmutigen lassen und aus 
der Not eine Tugend machen. Die 
Spielfigur wird einfach so positioniert, 
daß der Gegner ungefähr in Brusthöhe 
zu finden ist. Unter diesen Umständen 
kann kaum ein Schlag danebengehen. 
Kleinere Monster, die in Bodennähe 
ihr Unwesen treiben, sollte man ein¬ 
fach überspringen, da es nicht möglich 
ist, einen Schwertstreich in Bodennähe 
zu führen. Sollte es Ihnen gelingen, bis 
in die Burg Camelot vorzustoßen, gilt 
es nach diversen Items Ausschau zu 
halten. Vier Items müssen gefunden 
werden, um den Wächter der jeweili¬ 
gen Welt zu besiegen. 


Resümee 

Alles in allem ein fades und freudloses 
Spiel, daß Mastertronic hier vorgelegt 
hat. Die Interaktionsmöglichkeiten des 
Helden sind mehr als dürftig, die 
Steuerung schwergängig und träge. 


Spie'doe Qodionuncs- Doku- Gralik Sound Praia/ 

Ireundlichkdt monlaUin Lciftfi/ng 



Auch die bestenfalls als zweckmäßig 
zu bezeichnende Grafik wirkt lieblos 
und unterstreicht den unterdurch¬ 
schnittlichen Charakter dieses Spieles. 

(mm) 


Dynamic Duo 

Hersteller: Firebird 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. DM 35,— (Cass), 

DM 50,- (Disc) 

CPC 464 BG CPC 664 BO CPC 6128 Kl 

Ein starkes Gespann 

Jenseits des Reiches der Weißen Magic 
herrschen die “Dunklen Mächte“. Sie 
bestimmen das Schicksal all derer, die 
das “Haus der Nacht“ betreten, ein Ge¬ 
bäude mit geheimen Räumen und 
Schatztruhen, die ihrer Entdeckung 
harren. Doch nur wenige haben den 


Mut und vor allem die Kraft, das Haus 
zu ergründen. 

Mit Zwerg und seinem 
gefiederten Freund durchs 

Geisterschloß 

Das Haus besteht aus unzähligen Gän¬ 
gen. Hier und in verborgenen Gemä¬ 
chern befinden sich Schatztruhen, die 
eines der zehn Schlüsselfragmente ent¬ 
halten. Wenn man nun nach qualvollen 
Abenteuern alle zehn gefunden hat, er¬ 
hält man einen Schlüssel zum Rechen¬ 
zimmer, welches das eigentliche Ziel 
ist. Auf der Suche nach den Fragmen¬ 
ten entziehen sich die Gemächer stän¬ 
dig unserem Auge und werden durch 
den vom Zwerg mitgeführten Plan erst 
dann sichtbar, wenn man alle zehn 
Fragmente besitzt. Das hört sich soweit 
ja ganz leicht an, wenn da nicht die 
Blindheit des Zwerges wäre. Die bei¬ 
den Freunde sind also aufeinander an¬ 
gewiesen. 

Man kann das Spiel allein oder zu zweit 
bestreiten, wobei es sich empfiehlt, im 
Zwei-Spieler-Modus zu spielen, da so 
Zwerg und Erpel getrennt gleichzeitig 
gesteuert werden können. Der Enterich 
kann sehr viel schneller Biegen als sich 
unser Zwerg bewegen kann. Aber nur 
der Zwerg kann die gefundenen 
Schatztruhen öffnen. Solange sich der 
Zwerg und sein gefiederter Freund zu¬ 
sammen durch die Räume bewegen, 
sind sie ein mächtiges Gespann. Ge¬ 
trennt können sie schneller eine größe¬ 
re Fläche abdecken. 

Das Spielfeld ist in drei Teile geglie¬ 
dert. Im obersten Bereich läuft das 
Spiel ab. Hier werden die Bewegungen 
des agierenden Duos und der dort be- 
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Ein gesplittetes Spiel¬ 
feld ist nur einer un¬ 
ter vielen interessan¬ 
ten Bestandteilen, die 
aus Dynamic Duo ein 
überdurchschnittli¬ 
ches Spiel machen. 


findlichen Objekte dargestellt. Der 
mittlere Bereich wird von einem Lage¬ 
plan eingenommen, auf* dem das ak¬ 
tuelle Spielfeld ersichtlich ist. Falls 
nun der Zwerg und der Enterich ge¬ 
trennte Wege gehen sollten, wird der 
Lageplan durch ein zweites Spielfeld 
ersetzt. Der unterste Teil ist für allge¬ 
meine Dinge wie den Score, die Anzahl 
der bereits gefundenen Fragmente und 
ähnliches reserviert. 

Fazit 

Obwohl die Hauptfigur des Spiels ein 
Zwerg ist, erscheint das Spiel als Rie¬ 
se. Überzeugend stellt sich hier der 
Zwei-Spieler-Modus dar, der durch ei¬ 
nen geteilten Bildschirm zwei vonein¬ 
ander unabhängige Spielabläufe er¬ 
möglicht und das Spiel somit interes¬ 
santer gestaltet. 



Die Grafik ist zum höheren Durch¬ 
schnitt zu zählen. Die Animation der 
Sprites und ein weiches Scrolling, wel¬ 
ches in den beiden Spielscreens in ver¬ 
schiedene Richtungen möglich ist, un¬ 
terstreichen den positiven Eindruck des 
Spiels. Alles in allem handelt es sich 
um ein preiswertes und gut gelungenes 
Actionspiel, das in keiner Software¬ 
sammlung fehlen sollte. 

(Jürgen Seibel/Robert Marz/hs) 


War in Middle Earth 

Hersteller: Melbourne House 

Vertrieb: Fachhandel 

Monitor: Farbe/Grün 

Steuerung: Joystick/Tastatur 

Preis: stand bei Redaktionsschluß noch 

nicht fest. 

CPC 464 Kl CPC 664 K CPC 6128 K 

Die Gemeinschaft des Ringes 

J.R.R. Tolkien schuf mit seinen Bü¬ 
chern über Hobbits und die herrschen¬ 
den Verhältnisse in Mittelerde gerade¬ 
zu einen Literaturklassiker. So ließen 
auch die Umsetzungen dieser Thematik 
in Film und Computerspiel nicht lange 
auf sich warten. Während der Film den 
Erwartungen nicht ganz gerecht wer¬ 
den konnte, liegt nun die zweite Um¬ 
setzung dieses Stoffes für den CPC 
vor. 

Inhalt der Umsetzung ist der Herr der 
Ringe, von dem allerdings nur gewisse 


Teile zu einem Computerspiel verar¬ 
beitet wurden. Wem das Buch bekannt 
ist, kennt ja die Abenteuer von Frodo 
und seinen Gefährten. Für alle anderen 
hier nun ein kurzer Abriß des Gesche¬ 
hens. Das Böse, verkörpert durch Sau- 
ron, schuf einen Ring von ungeheurer 
Macht, der dazu dienen sollte, die gan¬ 
ze Welt unter die Knute des Bösen zu 
zwingen. Die Allianz der freien Völker 
konnte jedoch in einer offenen Feld¬ 
schlacht Sauron besiegen. Abgesehen 
von einem Hinweis verlor sich in die¬ 
sen Tagen die Spur des Ringes. Er wur¬ 
de jedoch von einem Wesen namens 
Gollum gefunden und gelangte über 
Umwege zu Bilbo Beutlin, der ihn sei¬ 
nem Neffen Frodo übergab. Nur die 
Vernichtung des Ringes kann Mitteler¬ 
de vor der Herrschaft des Bösen be¬ 
wahren, und so begibt sich Frodo, der 
Ringträger, zusammen mit einigen Ge¬ 
fährten auf die Reise, um den Ring am 
Ort seiner Entstehung zu zerstören. Zu 
diesem Zweck muß sich der wackere 
Frodo mit seinen Gefährten nach Mor- 
dor zum Berg des Schicksals begeben, 
um den Ring dort der glutflüssigen 
Lava zu übergeben. Sauron wird natür¬ 
lich mit Hilfe seiner Diener alles daran¬ 
setzen, um dies zu verhindern. Der 
endgültige Verlust des Ringes wäre mit 
seinem Ende gleichbedeutend. 

Ein weiter Weg 

liegt nun vor Frodo und seinen Gefähr¬ 
ten. Ausgehend von Rivendell, dem 
Heim des Elben Elrond, gilt es nun, ei¬ 
nen Weg durch die gefährlichen Gebie¬ 
te des Feindes zu finden. Dank des Rin¬ 
ges ist der Träger in der Lage, sich un¬ 
sichtbar zu machen. Die Nazgul je¬ 
doch, die stärksten Diener von Sauron, 


Mit Hilfe der Karte 
ist es relativ einfach, 
einen genauen Über¬ 
blick über das Gelän¬ 
de zu gewinnen. Nut¬ 
zen Sie dieses Wissen 
zu Ihrem Vorteil. 
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Die Geschichte des 
deutschen Reiches im 
19. Jahrhundert ist 
durch die Zersplitte¬ 
rung des Landes ge¬ 
prägt. Gelingt es Ih¬ 
nen , das geteilte 
Reich zu vereinen ? 


lassen sich vom Ring nicht täuschen. 
So ist die Benutzung des Ringes mit 
großen Gefahren verbunden. 
Ausgehend von einer Karle von Mittel¬ 
erde, kann nun der Spieler seine Figu¬ 
ren positionieren, um einen einigerma¬ 
ßen sicheren Weg für den Ringträger 
vorzubereiten. Es besteht die Möglich¬ 
keit, jeden Charakter einzeln zu steu¬ 
ern oder die ganze Truppe geschlossen 
marschieren zu lassen. 

Steht eine Konfrontation mit Feinden 
ins Haus, wechselt das Display zum 
Battlescreen. Jeder der Charaktere ver¬ 
fügt über bestimmte Werte wie Stärke, 
Energie und Tapferkeit. Diese Werte 
sind dann im Kampf ausschlaggebend. 
Von Vorteil ist es, von einer Burg aus 
zu kämpfen. Aus dieser Position her¬ 
aus haben Sie einen klaren strategi¬ 
schen Vorteil, um auch eine Überzahl 
von Angreifern ab wehren zu können. 
Leider kann kein Patentrezept gewählt 
werden, um die Aufgabe zu lösen. 
Waffengewalt und das Sammeln eines 
großen Heeres ist genauso erfolgver¬ 
sprechend, wie den Ringträger allein 
nach Mordor zu geleiten. 

Es liegt nun ganz an Ihnen, den un¬ 
glückseligen Ring der Vernichtung zu¬ 
zuführen. Retten Sie Mittelerde, bevor 
Saurons Schergen das Land mit Dun¬ 
kelheit überziehen. Zum Glück können 
Sie Ihre zahlreichen Mitstreiter zur 
Unterstützung heranziehen. Jeder der 
Mitglieder der Ringgemeinschaft kann 
den Ring eine Zeitlang tragen, falls Sie 
es wünschen. Hobbits jedoch scheinen 
den zerstörerischen Kräften des Ringes 
länger standhalten zu können als Zwer¬ 
ge, Elben oder Zauberer. So ist man im 
allgemeinen gut beraten, Frodo den 
Ring tragen zu lassen. Vor der Benut¬ 
zung desselben kann allerdings nur ge¬ 


warnt werden, da jedes Aufsetzen des 
Ringes mit einer Verminderung des 
Virtue-Wertes geahndet wird. Um nun 
zu den Schicksalsklüften zu gelangen, 
müssen viele Landschaften durchwan¬ 
dert werden. Meist hat man es unter¬ 
wegs nur mit Orks zu tun, die sich bei 
entsprechendem Zahlenverhältnis rela¬ 
tiv leicht besiegen lassen. Steht jedoch 
eine Konfrontation mit einem Balrog 
oder den gefürchteten Nazgul ins 
Haus, sollte man versuchen, zumindest 
den Ringträger aus der Schußlinie zu 
bringen. Gelingt es den Ringgeistern, 
des Ringes habhaft zu werden, ist das 
Spiel leider verloren. 

Resümee 


Kein leichter Stoff, an den sich Mel¬ 
bourne House hier herangewagt hat. 
Von strategisch taktischer Seite her ge¬ 
sehen, ist die Umsetzung recht gut ge¬ 
lungen. Leider ist es unmöglich, den 
Charme von Tolkiens Werk in die 
Computerumsetzung hinüberzuretten. 


Spolidwi Qedienunov Do*u- Giafi* Sauna P'öia l 

'raundichkort meniallon Leistung 



Die Steuerung ist leidlich verständlich 
und befähigt auch den Ungeübten, nach 
kurzer Vorbereitungszeit ins Spielge¬ 
schehen einzusteigen. Auch die grafi¬ 
sche Umsetzung der Karten ist recht 
gut gelungen, dafür ist die nähere Be¬ 
trachtung einzelner Geländeteile recht 
spärlich. Was bleibt, ist der strategi¬ 
sche Aspekt, der hervorragend heraus¬ 


gearbeitet wurde. Wem die Bücher von 
Tolkien Freude bereitet haben, sollte 
War in Middle Earth zumindest einmal 
in Augenschein nehmen. 

(mm) 


Das Reich 

Hersteller: New’s Software Karl Heinz 
Klug 

Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: DM 49,95 

CPC 464 & CPC 664 DCPC 6128 Kl 

Ein zersplittertes Reich 

Im Jahre 1871, im Anschluß an den 
Krieg 1870/1871, versammeln sich die 
deutschen Fürsten in Versailles, um 
das Kaiserreich auszurufen. Nach dem 
Niedergang Frankreichs erkennen die 
anderen Großmächte, Rußland und 
Österreich, den neuen Staat an. Da 
Ludwig II von Bayern und das Fürsten¬ 
tum Württemberg jedoch die Unter¬ 
schrift für die Reichseinigung verwei¬ 
gern, bleibt das Land ungeeint. In die¬ 
ser politisch instabilen Situation setzt 
die Simulation “Das Reich“ an. Der 
Spieler verkörpert einen patriotisch ge¬ 
sinnten Landesfürsten, der die Reich¬ 
seinigung mittels eines Feldzuges be¬ 
treiben will. Durch die Unruhen ermu¬ 
tigt , die dem fehlgeschlagenen Ver¬ 
such der Einigung folgten, versuchen 
natürlich auch die angrenzenden Nach¬ 
barstaaten, ihr Territorium zu vergrö¬ 
ßern. Um nun in dieser weitgehend 
selbstständig ablaufenden Simulation 
einzugreifen, stehen drei Menüpunkte 
zur Auswahl. Diese sind Angreifen, 
Verschieben der Truppen und Abwar¬ 
ten. In diesem Teil des Spieles ist es 
also das Ziel, die Reichseinigung zu 
versuchen. Im zweiten Teil der Simula¬ 
tion geht es um die Rettung von Öster¬ 
reich-Ungarn. Bei entsprechendem 
Geschick können Sie hier den Lauf der 
Geschichte verändern und die alte Do¬ 
naumonarchie erhalten. In der Rolle ei¬ 
nes geflüchteten Beamten des kaiserli¬ 
chen Hofes in Wien können Sie Land 
und Kaisertitel erobern. 

Geschichte einmal anders 

Nach dem Laden des Spieles präsen¬ 
tiert sich zunächst eine Karte, die die 
damaligen Grenzen der verschiedenen 
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Länder und Fürstentümer anzeigt. Da¬ 
bei fällt die unterschiedliche Farbge¬ 
bung der einzelnen Länder auf. Weiße 
Flächen repräsentieren in diesem Zu¬ 
sammenhang Länder ohne Regierung, 
rote Flächen sind Besitztümer des Spie¬ 
lers. Ziel ist es natürlich, möglichst 
viele der anfangs weißen Flächen in 
das eigene Gebiet zu integrieren. Dazu 
bieten sich verschiedene Möglichkei¬ 
ten an. Eroberungen führen zwar 
schnell zum Erfolg, haben jedoch den 
Nachteil, daß das eigene Land durch 
die unvermeidbaren Verluste ge¬ 
schwächt wird und in stärkerem Maße 
dem Eroberungsdrang anderer Länder 
ausgesetzt ist. Eine andere Strategie ist 
Abwarten. Auf diese Weise kann der 
Spieler das eigene Land stärken, Trup¬ 
pen bzw. Kräfte sammeln, um dann ei¬ 
nen Vorstoß zu wagen. Der Spieler 
kämpft nun gegen bis zu 13 vom Com¬ 
puter gesteuerte Gegenspieler. Diese 
sind natürlich ebenfalls an einer Ver¬ 
größerung des eigenen Gebietes inter¬ 
essiert. Ein besonderer Umstand zeich¬ 
net die Truppen aus, über die Sic verfü¬ 
gen können. Die Größe des Landes ist 
dabei nicht entscheidend, sondern nur 
die Tatsache, wie viele Truppen des al¬ 
ten Weltkriegsheeres sich zufällig in 
dem betreffenden Gebiet aufhalten. 
Eine genaue Erfassung der eigenen 
Stärke ist also bei allen Eroberungsplä¬ 
nen wichtig, um einem vermeidbaren 
Desaster vorzubeugen. 

Resümee 

Nun ist auch die Zeit von 1870/1871 in 
einer Simulation erfaßt. Das Pro¬ 
gramm versteht dabei besonders durch 
seine präzisen Karten der damaligen 
Zeit zu begeistern. Leider sind die In¬ 
teraktionsmöglichkeiten für den Spie¬ 
ler sehr begrenzt. 



Spieler zur Verfügung stehen, ist es 
kaum möglich, alle Vorhaben umzuset¬ 
zen. Eine Option für politische Ver¬ 
handlungen wäre notwendig gewesen, 
da nicht alle Konflikte nur mit militäri- 


Ihr gepanzertes Fahr¬ 
zeug auf Patrouille 
durch die Ruinen. 
Ständig muß der 
Spieler auf die Aktivi¬ 
täten anderer Fahr¬ 
zeuge achten, die 
meist feindlicher Na¬ 
tur sind. 


sehen Mitteln lösbar sind. Da die Simu¬ 
lation auch weitgehend selbständig ab¬ 
läuft, verbringt der Spieler den größten 
Teil der Zeit mit Zusehen. 

Für eine ernstzunehmende Simulation 
wird wenig geboten, jedoch darf der 
erzieherische Wert nicht außer acht ge¬ 
lassen werden, da der Spieler mit Hilfe 
des Programms seine Kenntnisse in 
deutscher Geschichte beachtlich ver¬ 
mehren kann, und dies auf spielerische 
Weise. Wer Interesse für deutsche Ge¬ 
schichte hegt, der sollte sich “Das 
Reich“ einmal genauer ansehen. Aller¬ 
dings ist eine Speichererweiterung not¬ 
wendig. 

(mm) 

Motor Massacre 

Hersteller: Gremlin Graphics 
Vertrieb: Fachhandel 
Steuerung: Joystick 
Monitor: Farbe/Grün 
Preis: ca. DM 35,- 

PS-Gladiatoren 

In einer Welt, die einem besonders 
üblen Alptraum entsprungen zu sein 
scheint, findet sich der Spieler hinter 
dem Lenkrad eines abenteuerlich anzu¬ 
schauenden Gefährtes wieder. Gepan¬ 
zert und mit Waffen versehen steht Ih¬ 
rem Wagen eine ganze Horde von mar¬ 
tialisch aufgerüsteten Gefährten gegen¬ 
über. Die rabiaten Fahrer unterstehen 
einem Verrückten, der mittels einer 
Droge, einem Heer von Zombies und 
der Autoarmee versucht, die Herr¬ 
schaft in diesem Spiel an sich zu rei¬ 
ßen. Der Job des Spielers ist es, dies zu 
verhindern. So fährt er durch die Rui¬ 


nen und sucht, ständig behindert durch 
die Autos des irren Imperators, Ein¬ 
gänge zu den verfallenen Häusern zu 
finden. In deren Innerem findet sich so 
manches Brauchbare, unter anderem 
auch ein Arenapaß, mit dem man Zu¬ 
tritt zu den persönlichen Zirkusspielen 
des Wahnsinnigen erhält. Nur leider 
nicht als Zuschauer, sondern als Prota¬ 
gonist. Sind in einer Arena die Gegner 
besiegt, beginnt das Spiel in einer an¬ 
deren Stadt von vorne, bis man ganz 
am Schluß dem Oberbösewicht persön¬ 
lich gegenüber steht. 

Resümee 

Das Herumfahren in den in der Drauf¬ 
sicht dargestellten Städten hat nichts 
mit Autorennspielen üblicher Machart 
gemein. Hier wird geschossen und ge¬ 
rammt, was das Zeug hält. In den Häu¬ 
sern wird der Held von gar schleimig 
schlabberigen Zombies verfolgt, die 
ein geöffneter Kanalschacht in konti¬ 
nuierlicher Folge ausspeit. 


ScelidM Dedlijnungjj. Dsku- Graft* Sound Proitf 

freunokchkolt roenui»on LeUiung 



Ein recht originelles Spielkonzept und 
eine passable Umsetzung auf den Com¬ 
puter verheißen längeren Spielspaß, 
obwohl das Spiel keinesfalls mehr 
darstellt als besseres Mittelmaß. 

(hs) 


5’89 PC 41 
























































































































I—Abenteuer 


Gamers Message 


Hallo, lieber Leser! 

Heute gilt es wieder einmal, dem Spielefrust entgegenzuwirken. Darum ha¬ 
ben wir in unserer Tip- und Trickkiste gekramt, um Ihnen bei einigen Spie¬ 
len unter die Arme zu greifen. Ganz klar, daß dabei “alte Hüte“ zum Vor¬ 
schein kamen, denn so dicht besät ist das Feld des CPC nicht. Dank der vie¬ 
len Compilations rücken aber gerade diese Oldies wieder in den Vorder¬ 
grund. Also, ganz nach dem Motto: Oldies but Goldies, stürzen wir uns ins 
Spielgeschehen! 


Lösung zu Infidel 

Uns brummt ganz schön der Schädel, 
als wir im Schlafsack des eigenen Zel¬ 
tes aufwachen. Das Camp ist verlassen 
und langsam erholen wir uns von den 
Folgen des Schlafmittels, das die Ar¬ 
beiter uns in einen Trank gemixt hat¬ 
ten, bevor sie dem Camp “Lebewohl“ 
sagten. 

Im Camp gibt es lediglich fünf Punkte 
zu holen, obwohl eine Menge Arbeit zu 
verrichten ist. 

Wir steigen also als erstes aus unserer 
“Penntüte“ und treten vor das Zelt. 
Das Flugzeug, das zu hören ist, wirft 
nach kurzer Zeit eine Box ab, in der ein 
Gerät zu finden ist, das auf Knopfdruck 
die aktuelle Position angibt. Weiterhin 
findet man im Lager, noch einige nutz¬ 
bringende Gegenstände: 

— im Supply Tent: Axt, Spaten 

— im Work Tent : Rucksack mit Seil 
und Feldflasche, Note 

— im eigenen Zelt: eine große Kiste 


Die große Kiste wird mit dem Stein 
aufgebrochen, der zusammen mit einer 
nutzlosen Schachtel Camel und einer 
Streichholzschachtel am Feuerplatz zu 
finden ist. Sie enthält einen Sticker, die 
Karte, einen Cube und ein Stück 
Fleisch. Letzteres können wir bei auf¬ 
kommendem Hunger verspeisen. Am 
River Bank trinken wir etwas Wasser 
und füllen unsere Feldflasche. Somit 
ist vorerst alles getan, was getan wer¬ 
den mußte. Auf der Karte (sie ist in der 
Packung enthalten) sehen wir die Stel¬ 
le, an der der Professor den Cube ge¬ 
funden hat. An dieser Stelle, die nun 
leicht mit Hilfe des Positionsgerätes zu 
finden ist, muß nun mehrmals gegra¬ 
ben werden, worauf ein Stein er¬ 
scheint, der Teil des Cubes ist. Letzte¬ 
ren kann man in die Öffnung einsetzen, 
die der Stein enthält. Nun geht es hinab 
in die Pyramide. 

In der Chamber of Ra liegt eine alte 
Fackel und ein Fläschchen Öl, dessen 
Inhalt wir über die Fackel schütten. 
Nun kann man unter Zuhilfenahme der 


Streichhölzer die Fackel anzünden. 
Zuerst benutzen wir den südlichen 
Ausgang. Im Golden Alcove und im 
Silver Alcove steht jeweils ein Kelch 
herum: Beide sind am Ende von äußer¬ 
ster Wichtigkeit. 

Auf der Barge liegt Papyrus und wei¬ 
terhin findet sich ein Beam; um diesen 
an sich zu nehmen, steigt man in das 
West End of Hold hinab. Die Fackel 
wird in die dazu vorgesehene Öffnung 
gesteckt, um den Kahn nicht in Flam¬ 
men aufgehen zu lassen. Jetzt legen wir 
alles ab und “liften“ den Beam. Nach¬ 
dem wir wieder alles in unser Inventar 
aufgenommen haben, können wir end¬ 
lich im Center of Barge den Beam mit¬ 
nehmen. Nun hätten wir alles in diesem 
Trakt. 

Im Chamber of Ra binden wir das Seil 
am Altar fest und werfen das lose Ende 
in den Nordausgang hinab. Nachdem 
dies geschehen ist, steigt man in den 
Circular Room, in dem man eine Statue 
vorfindet. Nachdem wir diese bewegt 
haben, trennt sich automatisch der 
Kopf der Statue vom Rumpf. Hier gibt 
es vier Ausgänge, an deren Enden sich 
jeweils die Räume von irgendwelchen 
Göttern befinden. Zum Schutz ist das 
gesamte System mit einer Art Wippme¬ 
chanismus gesichert. Geht man bei¬ 
spielsweise in Richtung Nordosten, so 
senkt sich eine Steintür und versperrt 
den Weg, während sich im Südwesten 
ein Stein aus dem Boden erhebt. Zum 
Glück haben wir aber die schwere Sta¬ 
tue, die wir in den jeweils entgegenge¬ 
setzten Hallway “moven“ können. Da¬ 
nach holt man sich den Kopf der Statue 
herbei und gesellt ihn zu den Überre¬ 
sten der Statue. Die Tür an der anderen 
Ecke des Saales kann sich somit nicht 
mehr senken. Mit diesem Prinzip ge¬ 
langt man nacheinander in alle vier 
Götterräume, wo jeweils ein Cluster zu 
finden ist — im Circular Room übri¬ 
gens auch. Wenn alle Clusters einge¬ 
sammelt sind, geht man zurück zur 
Chamber of Ra. Im Osten und Westen 
liegen Ausgänge, die beide in einen 
Cube führen. In dem Raum, der auf der 
Karte vermerkt ist, fällt einem sofort 
ein Panel auf. Hier sehen wir neun 
Bricks, die durchnumeriert sind. Die 
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Hieroglyphen auf dem Papyrus sagen 
uns nun, daß wir nacheinander Brick 
eins, Brick drei und Brick fünf heraus¬ 
nehmen müssen. Dadurch wird ein 
Durchgang freigelegt. Die Hierogly¬ 
phe im Raum Bottom of Stairs besagen, 
daß der Weg nach Osten durch das Pia¬ 
ster führt, das man zu diesem Zwecke 
entfernen sollte. Hier hilft die Axt. 
In der Narrow Passageway angekom¬ 
men, lesen wir erneut die Hierogly¬ 
phen. Sie sagen uns im übertragenen 
Sinne, daß wir den Beam in die Ni¬ 
schen einsetzen sollen und uns danach 
darauf setzen müssen. Nun “removen“ 
wir das Piaster und kümmern uns nicht 
weiter darum, daß der Boden unter un¬ 
seren Füßen verschwindet. Haben wir 
uns nach Osten begeben, sollten wir 
nicht vergessen, den Beam einzu¬ 
stecken. Nach Osten gehend, wird bald 
die Antechamber erreicht. Nun geht’s 
weiter nach Süden. Den Beam stecken 
wir in die Tür und öffnen sie. Jetzt klet¬ 
tern wir in das Annex, wo die Clusters 
(außer dem goldenen) in die Löcher ge¬ 
steckt werden müssen. Welcher Clu¬ 
ster in welches Loch gehört, ist relativ 
leicht an den Hieroglyphen in den Göt¬ 
terräumen zu erkennen. Anschließend 
“lifted“ man den Slat, worauf wir ein 
Buch und ein Spatel, mit dem das Buch 
gelesen (besser umgeblättert) werden 
muß, vorfindet. In diesem Buch steht, 
wie man den Schatz letztendlich be¬ 
kommt: Man stecke das Buch in die 
große Öffnung und den Scarab (kommt 
gleich) in die kleine Öffnung am Sarg 
der Queen. Zuerst aber zum Sarg: Wir 
verlassen das Zimmer und nehmen den 
Beam wieder an uns. Nördlich der An¬ 
techamber muß nun der Beam unter das 
Timber gesteckt werden, dann wird ads 
seal mit der Axt zerstört und die Tür 
geöffnet. Die letzten beiden Räume lie¬ 
gen jetzt vor uns. Zuerst geht es in den 
Raum, in dem der Scarab auf dem 
Tisch liegt, doch Vorsicht, dieser ist 
mit einem merkwürdigen Mechanis¬ 
mus ausgestattet. Wenn die beiden Kel¬ 
che auf die freien Platten gestellt wer¬ 
den, kann man den Scarab an sich neh¬ 
men. Der leichtere Kelch wird bis zu 
der im Inneren sichtbaren Linie mit 
dem Wasser aus der Feldflasche ge¬ 
füllt, somit stürzt nichts mehr ein, und 
geheime Fallen bleiben aus, wenn man 
den Scarab an sich nimmt. 

Das Buch und der Scarab können nun 
in die Löcher am Sarg eingefügt wer¬ 
den. Noch einmal richtet man sich nach 
den Hieroglyphen in den Götterräu¬ 


men, wenn man die Arme der Götter¬ 
statuen, die den Deckel des Sarges fest- 
halten, wegdreht. Der Sarg wird geöff¬ 
net, 400 von 400 Punkten sind erreicht, 
und ein herrliches “Non-Happy-End“ 
beschließt das Spiel. 

Cheat-Mode zu Tempest 

Hans-Peter Kütter machte uns darauf 
aufmerksam, daß der angebliche 
Cheat-Mode aus Ausgabe 2/89 über¬ 
flüssig ist, da die Funktionen der Ta¬ 
sten A (vorheriges Level), Q (nächstes 
Level) und X (Exit) immer verfügbar 
sind. In den richtigen Unsterblichkeits¬ 
modus gelangt man, indem man das er¬ 
ste Spiel mit mindestens 260 Punkten 
“normal“ beendet und dann bei der 
Meldung “Game Over“ die Feuertaste 
betätigt. Dabei bekommt man die Hälf¬ 
te der vorher errungenen Punkte gutge¬ 
schrieben. Geht ab jetzt ein Zapper 
verloren, bekommt man ihn nach dem 
nächsten Abschuß zurück, wobei ein 
Pfeifgeräusch ertönt. Das Ganze funk¬ 
tioniert allerdings nur im Ein-Spie- 
ler-Modus. 

Blitzlösung zu Heavy on the 
Magick 

Wer innerhalb weniger Sekunden das 
Spiel Heavy on the Magick lösen will, 
sollte sich folgenden Blitzlösungsweg 
vornehmen: 

Pick up Grimoire, E, N, NW, “Door, 
Wolf“, N, NW, Invoke Astarot, 
“Astarot, “Astarot, Pilefoot“, W, 
“Door, Eleven“, N 

Vermeer - Tips & Tricks 

Von Thorsten Hallermeier stammen 
die folgenden Tips für das Wirtschafts¬ 
spiel Vermeer. 

1. Spielstrategie: 

Zuerst sollte man eine Plantage nahe 
London (z.B. Ankara) gründen. Auf 
jeden Fall sollten 10 Prozent des Start¬ 
kapitals als Reserve einbehalten wer¬ 
den, da man das Geld zum Bezahlen 
der Löhne noch braucht. Nachdem das 
Saatgut verteilt wurde, muß man min¬ 
destens 30 Tage warten, bevor man 
ernten kann. Diese Ernte sollte man 
dann sofort verkaufen und mit diesem 
Geld die Plantage ausbauen. Sobald 
wie möglich, sollten Sie in Richmond 
oder St. Louis eine Plantage gründen, 
da man dort den größten Gewinn er¬ 
wirtschaften kann. Allerdings sollte 


man dort nicht seine erste Plantage 
gründen, da man am Anfang noch nicht 
über genügend Kapital verfügt. Nach¬ 
dem Sie in allen möglichen Städten 
Plantagen besitzen, sollten Sie erst ein¬ 
mal drei Monate umherreisen, um die 
Ernten abzuholen und neun Monate da¬ 
mit verbringen, Bilder zu kaufen. Dies 
tätigt man am besten in Europa, weil 
dort die meisten Auktionen stattfinden. 

2. Plantagen: 

Kaufen Sie sich am besten zuerst das 
Land (möglichst viel), da man am An¬ 
fang jeden Hektar zum gleichen Preis 
bekommt. Dann erst sollten Sie sich 
daran machen, Saatgut zu kaufen. Las¬ 
sen Sie jedoch immer genügend Saat¬ 
gut übrig (pro ha Land eine Einheit), 
um so bei Katastrophen, wie z.B. 
Streik, kein Saatgut kaufen zu müssen. 
Bauen Sie immer nur die Frucht an, die 
im Handbuch als erste erwähnt ist (An¬ 
kara - Tee; Rio - Kaffee; usw.). Bevor 
man in einer Stadt eine Plantage grün¬ 
det, sollte man von der entsprechenden 
Handelslinie Aktien erwerben (diese 
steigen sofort nach der Plantagengrün¬ 
dung). Sehr gute Plantagen sind: Rich¬ 
mond, St. Louis und Colombo. 

3. Termingeschäfte: 

Notieren Sie sich immer, wieviel Sie 
von welcher Ware an welchem Platz 
besitzen. Bei Termingeschäften sollten 
Sie dann nur die Menge anbieten, über 
die Sie auch wirklich verfügen. So 
kann man sich nämlich hohe Strafen er¬ 
sparen. 

4. Börse: 

Nach jeder Geldreform sollte man 
möglichst viele Aktien kaufen (ihr 
Wert steigt mehr, als die Inflationsra¬ 
te). Der Kauf bzw. Verkauf von Dol¬ 
lars bringt keine großen Gewinne. 

5. Bilder: 

Notieren Sie sich die Nummern aller 
Bilder, die Sie besitzen (bei mehr als 
einem Spieler auch die Nummern sei¬ 
ner Mitspieler). So weiß man sofort, ob 
man das angebotene (evtl, falsche) Bild 
schon besitzt. 

Bonusrunde zu Indiana Jones 

Aller guten Dinge sind drei, besagt ein 
altes Sprichwort. Somit wollen wir nun 
auch die Bonusrunde bei Indiana Jones 
vergessen. Wir haben ja in den letzten 
beiden Ausgaben schon die Levels eins 
bis drei abgedruckt. Voilä, hier ist sie 
nun, jene Bonusrunde. Viel Spaß beim 
Spielen! (br) 
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Die Assemblerecke 

Kleiner Punkt, großer Aufwand 

Wissen Sie, was ein Pixel ist? Na klar - ein Pünktchen auf dem Bildschirm. 
Wissen Sie aber auch, woher dieser Begriff stammt? Es handelt sich um 
eine Verunkürzung von ’Picture Element’. Profis sprechen sogar mitunter 
nur noch von einem Pel, um keine wertvollen Mikrosekunden mit der Aus¬ 
sprache von ’ix’zu vergeuden. Und noch eine dumme Frage: Wie erzeugt 
man ein Pel auf dem CPC-Monitor? Ganz einfach, mit einem PLOT-Be- 
fehl... und wenn das CPC-Betriebssystem sprechen könnte, würde es jetzt 
energisch Protest einlegen: Von wegen einfach! 


Bereits in den letzten Folgen der As¬ 
semblerecke haben wir uns im Bild- 
schirmspeichcr herumgetrieben, dabei 
jedoch nur mit kompletten Bytes jon¬ 
gliert. Will man in Maschinensprache 
gezielt Punkte ansprechen, so müssen 
diese innerhalb eines Bytes lokalisiert 
werden, was neue Komplikationen mit 
sich bringt. Um der Sache näher zu 
kommen, schaut man sich am besten 
an, wie es das Betriebssystem macht. 
Damit Sie sich jedoch nicht mit ROM- 
Listings plagen müssen, finden Sie in 
dieser Folge ein Programm, das die 
Vorgehensweise in reinem Basic nach¬ 
vollzieht. 

Die Zeilen 10 bis 90 dienen nur Test¬ 
zwecken: Hier können Sie zwei Grafik¬ 
koordinaten x,y eingeben, um an der 
entsprechenden Stelle einen Punkt zu 
erzeugen. Ernst wird es in der Subrou¬ 


tine PLOT, die ab Zeile 130 zunächst 
die Legalität Ihrer Eingaben prüft. 
Koordinaten außerhalb des Bild¬ 
schirms könnten sonst Punkte an ir¬ 
gendeiner Undefinierten Position er¬ 
scheinen lassen. 

Physikalische Koordinaten und 
was davon zu halten ist 

Ab Zeile 170 erfolgt die Umrechnung 
in physikalische Koordinaten, und 
dazu ist erst einmal eine Erklärung fäl¬ 
lig: Die Grafikkoordinaten des CPC 
reichen vertikal von 0 bis 399 und hori¬ 
zontal von 0 bis 639, was jedoch nicht 
dem tatsächlichen Auflösungsvermö¬ 
gen entspricht. In Y-Richtung lassen 
sich nur 200 Punkte darstellen; in X- 
Richtung sind es 640 (MODE 2), 320 
(MODE 1) oder gar nur 160 (MODE 


0). Was auf den ersten Blick wie Lug 
und Betrug aussieht, ist jedoch eine 
Wohltat für den Basic-Programmierer: 
Unabhängig vom MODE erzeugen 
gleiche Zahlenwerte geometrisch gese¬ 
hen die gleichen Ergebnisse. Weiterhin 
sind die X-und Y-Skalierungen so auf¬ 
einander abgestimmt, daß ein mathe¬ 
matisch exakter Kreis wirklich als 
Kreis auf dem Bildschirm erscheint 
und nicht als Ellipse. 

Natürlich muß sich das Betriebssystem 
an der physikalischen Realität orientie¬ 
ren und die Anwenderkoordinaten so 
umrechnen, daß sie der tatsächlichen 
Pixelanzahl entsprechen. Der Y-Wert 
wird deshalb durch 2 geteilt und der X- 
Wert in MODE 1 und MODE 0 durch 2 
bzw. 4. Da es keine halben Pixel gibt, 
benutzt das Basic-Programm die Ganz¬ 
zahl-Division ohne Rest (umgekehrter 
Schrägstrich). Der MODE wird einer 
Speicherstelle entnommen, die für den 
CPC 464 und CPC 664/6128 verschie¬ 
den ist — hier bitte aufpassen! 

Für weitere Berechnungen wird in Zei¬ 
le 240 die Anzahl der Pixel innerhalb 
eines Bildschirm-Bytes bestimmt, die 
je nach MODE verschieden ist. Die 
MODE-spezifischen Bitmasken helfen 
bei der Lokalisierung eines Punktes in¬ 
nerhalb eines Bytes — dazu gleich 
mehr. Das Statement y = 199-y in Zeile 
290 stellt die Y-Achse quasi auf den 
Kopf und verlegt den Punkt 0,0 in die 
linke obere Ecke. Das ist eine weitere 
Anpassung an die physikalische Reali¬ 
tät: In einem mathematischen Koordi¬ 
natensystem wachsen die Y-Werte von 
unten nach oben; die Bildschirmadres¬ 
sen nehmen jedoch in umgekehrter 
Richtung zu! 

Adreßberechnungen 

Die Umrechnung der X/Y-Koordina- 
ten in eine Bildschirmadresse erfolgt in 
Zeile 300. Das Adressenlabyrinth des 
Video-RAMs wurde bereits in Heft 
3/89 ausführlich besprochen. Hier soll 
nur das Wichtigste in Kürze wiederholt 
werden: Wenn nach dem letzten 
MODE-Befehl oder Reset kein Hard¬ 
ware-Scrolling (Rollen des gesamten 
Bildschirms) stattgefunden hat, liegt 
die linke obere Bildschirmecke an der 
Adresse &C000. Wandert man von 
dort aus jeweils eine Textzeile (8 Pixel¬ 
reihen) nach unten, so erhöht sich die 
Adresse immer um 80. Innerhalb einer 
Textzeile bewirkt der Sprung zur 
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Punktposition 
v. links nach 
rechts 

Signifikante Bits für 

MODE 2 MODE 1 MODE 0 

0 

7 

3 7 

15 3 7 

1 

6 

2 6 

0 4 2 6 

2 

5 

1 5 


3 

4 

0 4 


4 

3 



5 

2 



6 

1 



7 

0 




Tabelle 1: Signifikante Bits für die Punktpositionen in einem Bildschirm-Byte 


nächsten Pixelreihe jedoch eine Erhö¬ 
hung um 2048 (Hex &800). 

Mit diesen Erkenntnissen läßt sich die 
in Zeile 300 benutzte Formel auf¬ 
schlüsseln: 

adr + &C000 + (y \8)*80 ergibt die- 
Startadresse (links,oben) der Textzei¬ 
le. in der sich der Punkt befindet. Die 
Ganzzahldivision ohne Rest rechnet 
hier die Y-Grafikkoordinate in die 
Textzeilen-Nummer um. 
adr=adr+(y MOD 8)*2048 rechnet 
die Adresse innerhalb der Textzeile mit 
Hilfe des Divisionsrestes nach unten 
weiter, um zu der korrekten Pixelreihe 
zu gelangen. 

adr=adr + (x \ pb) rechnet schließ¬ 
lich die Adresse nach rechts bis zum 
richtigen Byte weiter, indem die X- 
Koordinate addiert wird. Natürlich 
muß sie vorher durch die Pixel pro 
Byte dividiert werden, da jedes Byte 
gleich mehrere Punkte enthält! 

Und damit befinden wir uns jetzt nahe 
genug an der Hardware, um uns wieder 
mit den Eigenarten des CPC-Video¬ 
chips herumärgern zu dürfen. Inner¬ 
halb eines Bytes sind bestimmte 'signi¬ 
fikante’ Bits für unseren Punkt zustän¬ 
dig — aber welche? Wie Tabelle 1 
zeigt, ist das in MODE 2 noch sehr ein¬ 
fach: Jedes Bit entspricht genau einem 
Bildpunkt. Steht das Bit auf 1, so wird 
der Punkt mit PEN 1 dargestellt, an¬ 
sonsten mit PEN 0. Dabei muß man 
nur im Auge behalten, daß das höchst¬ 
wertige Bit (Bit 7) für die Punktposi¬ 
tion ganz links zuständig ist, Bit 6 für 
den nächsten Punkt usw. 

In MODE 1 werden 2 Bits pro Punkt 
benötigt, um die vier Farben von PEN 
0 bis PEN 3 unterscheiden zu können. 
Wer jetzt allerdings glaubt, daß die bei¬ 
den Bits ordentlich sortiert nebeneinan¬ 
der liegen, kennt unseren Videochip 
noch nicht! Die Organisation des Bild¬ 
schirmspeichers ist nämlich total auf 
seine Hardware-Logik zugeschnitten; 
der Programmierer muß sich gefälligst 
damit abfinden, daß die Bits für einen 
Pixel fein säuberlich im Byte verteilt 
liegen. Der Tabelle können Sie entneh¬ 
men, welche Bits für welche Punktpo¬ 
sition zuständig sind, und sich gleich¬ 
zeitig davon überzeugen, daß das Cha¬ 
os in MODE 0 noch größer wird (4 Bit 
pro Punkt für 16 Farben). 

Um die Bits gezielt anzusprechen, wur¬ 
den bereits in den Basiczeilen 260-280 
Bitmasken vorbereitet, die an den si¬ 
gnifikanten Stellen eine 1 enthalten. In 
der vorliegenden Form gelten sie aller¬ 


dings nur für die Punktposition 0 ganz 
links im Byte. Für die anderen Positio¬ 
nen müssen die Einsen noch etwas nach 
rechts geschoben werden; die X-Koor- 
dinate bestimmt, wie weit. Mit der 
Ganzzahl-Division x \ pb hatten wir 
die Adresse des Bytes in horizontaler 
Richtung lokalisiert; der Rest (x MOD 
pb) gibt uns an, um wie viele Positio¬ 
nen die Bitmaske verschoben werden 
muß. Da uns in Basic keine Schiebeo¬ 
perationen zur Verfügung stehen, be¬ 
nutzt die Schleife in den Zeilen 
310..330 eine wiederholte Division 
durch 2, die bei Binärzahlen den glei¬ 
chen Zweck erfüllt. (Siehe PC Interna¬ 
tional 12/88. S. 42.) 

Bits b ekennen Farbe 

Wenn man die Bitmaske per OR-Ver- 
knüpfung in das Bildschirmbyte hin¬ 
einmurkst, erhält man allerdings im¬ 
mer nur einen Punkt in der höchstmög¬ 
lichen Farbnummer (z.B. PEN 3 in 
MODE 1). Was uns noch fehlt, ist die 
Codierung der Farben in den signifi¬ 
kanten Bits. Hierbei hilft wieder die 
Tabelle 1, in der die Bitnummern 
gleich in einer passenden Reihenfolge 
stehen. Dazu ein Beispiel: In MODE 0 
soll ein Byte mit PEN 12 eingefärbt 
werden. Da die Zahl 12 im Binärsy¬ 
stem durch 1100 dargestellt wird, müs¬ 
sen die Bits für die beiden Punktposi¬ 
tionen auf folgende Weise gesetzt wer¬ 
den: Bit 1 = 1, Bit 5 = 1, Bit 3 = 0, Bit 
7 = 0, Bit 0 = 1, Bit 4 = 1, Bit 2 = 0, Bit 
6 = 0 

Bringt man die Bits in die richtige Rei¬ 
henfolge, so erhält man den Wert 
&X00110011. Solch ein Bitmuster, das 
für alle Punktpositionen in einem Byte 
die Farbe angibt, nennt man ’Farbmas- 
ke'. Überzeugen Sie sich selbst: Schal¬ 


ten Sie MODE 0 ein, und schreiben Sie 
den Wert mit POKE &C000 in den 
Bildschirmspeicher! 

Nach einer Farbwahl mit PEN, PA¬ 
PER usw. legt das Betriebssystem die 
dazugehörigen Farbmasken in be¬ 
stimmten Speicherstellen ab (siehe Ta¬ 
belle 2), damit sie für nachfolgende 
Bildschirmausgaben sofort zur Verfü¬ 
gung stehen. Normalerweise enthalten 
diese Masken für alle Punktpositionen 
die gleiche Farbe... es sei denn, ein 
hinterlistiger Mensch verbiegt hier ein 
paar Bits! Lassen Sie das folgende Ka¬ 
binettstück auf Ihrem Rechner laufen: 

10 'Farbmaskendemo 
20 MODE 1 

30 INK 0,0: INK 1,6: INK 2,11: INK 3,21 
40 POKE &B338,83: ' &B6A3 für 664/6128 
50 FOR x=0 T0 640 STEP 10 
60 MOVE 320,0: DRAW x, 399: NEXT 

Hübsch, nicht wahr? Nach dieser klei¬ 
nen Erholungspause sind Sie sicherlich 
in der Lage, den Endspurt zu bewälti¬ 
gen. Um noch einmal zusammenzufas¬ 
sen: Wir haben die Adresse des Screen- 
bytes, eine Bitmaske für die Punktposi¬ 
tion und wissen auch, wo wir eine 
Farbmaske herbekommen. Jetzt müs¬ 
sen nur noch bestimmte Bits im Screen- 
byte durch neue Bits aus der Farbmas¬ 
ke ersetzt werden, und das geht so (sie¬ 
he Zeile 390): 

serbyte AND NOT bitmask löscht die 
signifikanten Bits im Screenbyte, 

colmask AND bitmask isoliert die 
Farbbits für die Punktposition, 

... und die OR-Verknüpfung setzt sie in 
das Screenbyte ein. Das Ergebnis 
kommt zurück in den Bildschirmspei¬ 
cher — fertig! Detaillierte Erläuterun¬ 
gen zu den logischen Verknüpfungen 
finden Sie übrigens in PC International 
11/88. S. 20. 
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CPC 464 

664/6128 

PEN Grafik 

&B338 

&B6A3 

PAPER Grafik 

&B339 

&B6A4 

PEN Text 

&B28F 

&B72F 

PAPER Text 

&B290 

&B730 

aktueller MODE 

&B1C8 

r t '" ' 1 ■ — 

&B7C3 


Tabelle 2: Speicherstellen fiir Farbmasken und den aktuellen MODE 


FASTPLOT. ASM: 

Ganz schön schnell... 

Es ist in der Tat erstaunlich kompli¬ 
ziert, einen einzigen Punkt zu erzeu¬ 
gen, wenn man auf den PLOT-Befehl 
und die Mithilfe des Betriebssystems 
verzichtet. Wer jedoch superschnelle 
Grafik in Maschinensprache program¬ 
mieren will, kommt um dieses Grund¬ 
lagenwissen nicht herum. Als Beispiel 


möchte ich Ihnen die FASTPLOT- 
Routine aus dem Fraktal-Generator 
vorstellen, die dazu beiträgt, die an¬ 
spruchsvolle 3D-Grafik in akzeptabler 
Rechenzeit zu erzeugen. Hier wurde 
nach Kräften optimiert, was leider 
nicht der Übersichtlichkeit zugute 
kommt. 

Sie können die Routine als 'Black Box' 
in eigenen Programmen einsetzen; wer 
jedoch herausfinden möchte, wie und 


warum sie funktioniert, wird sich even¬ 
tuell die Zähne daran ausbeißen, ob¬ 
wohl im Prinzip das Gleiche wie im 
Basic-Listing ab Zeile 300 passiert. 

Hier noch ein kleiner Tip: Die Basic- 
zeile 390 läßt sich nach den Gesetzen 
der Logik in das Äquivalent scrbyte = 
((colmask XOR scrbyte) AND bit- 
mask) XOR scrbyte umformen, was 
sich in Assembler mit weniger Befeh¬ 
len erledigen läßt — siehe Zeile 470 bis 
500. 

Immerhin ist die FASTPLOT-Routine 
sechsmal so schnell wie die Betriebssy¬ 
stem-Routine GRA PLOT, da sie sich 
auf MODE 1 beschränkt, keine Abfra¬ 
ge auf legale Werte enthält und gleich 
mit physikalischen Koordinaten ange¬ 
steuert wird. Falls Sie es genau wissen 
wollen: FASTPLOT schafft 10500 
Pixel pro Sekunde! 

(Matthias Uphoff/cd) 


10 *********** Fuer Studienzwecke: [2109] 

20 *********** PLOT-Routlne ln Basic [3407] 

30 1 Hl 7 ] 

40 MODE 1 [506] 

50 LOCATE 1,1:PRINT SPACE$(20); [1995] 

60 LOCATE 1,1:INPUT "X:“,x [1513] 

70 LOCATE 10,1:INPUT"Y:".y [654] 

60 GOSUB 100:GOTO 50 [1225] 

90 ' [117] 

100 '****************** SUBrOutine Plot [1596] 

110 'IN: x.y = Anwenderkoordinaten [1073] 

120 ' [117] 

130 '*** Koordinaten legal? [974] 

140 IF x<0 OR x > 6 39 THEN RETURN [ 1638 ] 

150 IF y < 0 OR y>399 THEN RETURN [2022] 

160 ' [117] 

170 '*** MOOE holen und Umrechnung [2500] 

180 '*** ln physikalische Koordinaten [1727] 

190 md=PEEK(&BlC8):'&B7C3 fuer 664/6128 [2324] 

200 IF md=1 THEN x=x\2 [986] 

210 IF md=0 THEN x=x\4 [786] 

220 y=y\2 [870] 

230 ' [117] 

240 '** Screenadr. & Bitmaske berechnen [2091] 

250 ’** pb = Pixel pro Byte [1468] 

260 IF md=2 THEN bitmask=&X10000000:pb=8 [3278] 

270 IF md=1 THEN b1tmask=4X10001000:pb=4 [1745] 

280 IF md=0 THEN bitmask = &X10101010:pb=2 [2221] 

290 y=199-y:'Damit 0,0 oben liegt [1364] 

300 adr=&C000+(y\8)*80+(y MOD 8)*2048+(x\p [1846] 
b) 

310 FOR 1=1 TO (x MOD pb) [867] 

320 bltmask=bitmask\2 [1647] 

330 NEXT [350] 

340 ' [1171 

350 '*** Farbmaske holen, signifikante [2643] 

360 '*** Bits aendern, Punkt setzen [2952] 

370 co1mask=PEEK(&8338):'&B6A3 fuer 664/61 [1453] 
28 

380 scrbyte=PEEK(adr) [2095] 

390 scrbyte=(scrbyte AND NOT bltmask) OR ( [4023] 

colmask AND bltmask) 

400 POKE adr.scrbyte [337] 

410 RETURN [555] 


100 

-******* FASTPLOT-Routine ******** 

[2000] 

110 

; Nu r fuer MODE 


[ 1820] 

120 

;IN:DE=X,HL=Y in 

phys. Koordinaten 

[2127] 

130 

; X = 0..319, 

Y = 0..199 

[346] 

140 

; 0,0 liegt 11 

nks oben! 

[1627] 

150 



[117] 

160 

CMASK EQU &B338 

Adresse Farbmaske 

[ 2221 ] 

170 


&B6A3 f. 664/6128 

[965 ] 

180 



[117] 

190 

F P LOT LD A,L 

A=Lowbyte Y 

[ 1967] 

200 

AND &X00000111 

Bit 0. .2 1solie ren 

[ 1621 ] 

210 

LD H.A 

= y MOO 8 nach H 

[2191] 

220 

XOR L 

A=B1t 3..7 von Y 

[ 1512 ] 

230 

LD L , A 

= (Y\8 ) *8 nach L 

[ 1402 ] 

240 

LD C.A 

und nach C 

[ 1048] 

250 

LD B.&60 

B=&C0\2 = Highbyte 

[ 1 75 7 ] 

260 


Screenstart\2 

[ 988 } 

270 

ADD HL,HL 

HL*2 

[ 1302 ] 

280 

ADD HL,HL 

H L* 4 

[1308] 

290 

ADD HL.BC 

+BC = Startadresse 

[1124] 

300 

ADD HL,HL 

der Rasterzei 1e 

[ 2595] 

310 



[117] 

320 

LD A , E. 

Lowbyte X nach A 

[ 1479 ] 

330 

SRL D 

X\4 berechnen, da 

[1866] 

340 

RR E 

4 Pixel pro Byte 

[2387] 

350 

SRL E 


[218] 

360 

ADD HL,DE 

+ HL = Screenad resse 

[2563] 

370 



[117] 

380 

LD C.&X10001000 

Bitmaske f. MOOE 1 

[2032] 

390 

AND &X00000011 

A = X MOD 4 

[1067] 

400 

JR Z.NSHIFT 

-> =0, kein Shift 

[ 1350] 

410 

LD B , A 

Schleifenzaehler 

[2346] 

420 

SHIFT SRL C 

Bitmaske auf Pixel 

[ 2282 ] 

430 

DJNZ SHIFT 

-Position schieben 

[2188 ] 

440 



[117] 

450 

'NSHIFT LD A,(CMASK) 

[1153] 

460 


jFarbmaske holen 

[801 ] 

470 

'XOR (HL) 

;XOR Screenbyte 

[ 1430] 

480 

' AND C 

;AND Bitmaske 

[ 534] 

490 

'XOR (HL) 

;XOR Screenbyte 

[1430] 

500 

'LD (HL),A 

;Neues Screenbyte 

[2402] 

510 

' RET 

; ferti g 

[ 867 ] 
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«Jetzt neu: 

BASIC-Compiler für CPC 464/664/6128 
Der Turbo-Antrieb für Ihre BASIC-Programme! 


Haben auch Sie sich schon immer ge¬ 
wünscht, daß Ihre selbstgeschriebenen 
BASIC-Programme schneller laufen? 

Mit dem BASIC-Compiler von DMV ist das 
nun kein Problem mehr, denn 


der Compiler hat den vollen Sprachumfang des 

BASIC 1.1 (CPC664/6128) 

das compilierte Programm ist auf jedem CPC 

lauffähig 

unterstützt Integer- und Fließkomma- 
Arithmetik 

kompatibel zu Vortex-Peripherie incl. Nutzen 
der RAM-Disk 

Programme, die spezielle BASIC l.l.-Befehle 
beinhalten, sind auch auf dem CPC464 lauffä¬ 
hig (außer FILL und MASK) 

der Compiler arbeitet unter CF^M, das heißt, 
alle CF^M-Dienstprogramme können genutzt 
werden. 

bis 17 KB Quellcode können problemlos compi- 
liert werden 

einzelne Programmteile können ebenfalls com- 
piliert werden (z.B. wichtig bei Nachladepro¬ 
grammen) 

die ausführliche deutsche Bedienungs¬ 
anleitung macht Sie auf einfache Weise mit 
dem Umgang des Compilers vertraut, 
viele Beispielprogramme veranschaulichen die 
Arbeitsweise des Compilers und zeigen die Ge¬ 
schwindigkeitsvorteile auf. 

das Programm ist in 100% Maschinencode ge¬ 
schrieben 



Der BASIC-Compiler ist nur auf 3“-Diskette 
erhältlich. 

69.- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen gilt folgendes: 

Rpcf ,M r • 9DQ lnland: Ausland: 

Dtibl. 4UH Einzelpreis 69,- DM Einzelpreis 69,- DM 

zzgl. Versandkosten 3,- DM zzgl. Versandkosten 5.- DM 

Endpreis 72,- DM Endpreis 74,- DM 


Bitte benutzen Sie die Bestellkarte 

DMV-Verlag 

Postfach 250 • 3440 Eschwege 


Eine Bitte 
an unsere 
Abonnenten 


Vermerken Sie bei 
Schriftverkehr und 
Zahlungen neben der 
vollständigen 
Anschrift stets Ihre 
Abo-Nummer. 


Sie vermeiden damit 
unnötige Verzögerun¬ 
gen bei der 
Bearbeitung Ihres 
Abonnements. 


Vielen Dank 

Ihre DMV- 
Versandab teilung 


NEWS 

FAKTURA 

Die komplette Fakturierung 
Was Sie für Ihr Geld bekommen: 

Rechnungen 
Mahnungen 
Offene Posten-Liste 
Kundenverwaltung 
Angebote 
Artikelverwaltung 
Serienbriefe 
und vieles mehr 

NEWS FAKTURA Ifluft auf XT/AT mit Fostplalte und 
MS/PC DOS 2.11 odor höhor, 

Der Preis: 

DM 149,90 

p/us DM5 Versandkosten 

Noch Fragen? 

NEW’s SOFTWARE 
Karl-Heinz Klug 

Wülfrather Straße 8 
4000 Düsseldorf 1 
Telefon 0211/6790925 
oder 

0211/676201 


Diskettenlaufwerke 

Anschlußfertige Qualitätslaufwerke von TEAC, 
2*80 Spuren, 1 MB unformatiert. 1 Jahr Garantie ! 

EURO PC 720KB 3 5 ' Hl ' 

360/720 KB, 5.25" ^5*0.- 


I OVO P 726 KB, 3.5" 249.- 

JUYUt 726KB 525 348 . 

MsCopy (ermöglicht Lesen/Schreiben von MsDos) 49.- 
40/80 Tr. Umschaltung für 5.25" und MsCopy 

CPC 830 KB, 3.5" 


CPC 830 KB, 3.5" 298.- 

830 KB, 5.25" 348.- 

Zweitlaufwerke mit 830 KB formatierter Kapazität unter CP/M, 360 KB 
unter Amsdos bzw. BASIC, Lieferung umfasst ein komplett anschlußfer¬ 
tiges Diskettenlaufwerk inkl. der Programme DiskPara und MsCopy. 


Di^kPrir^ für alle CPC’s 79.- 

^ r tl I U Treiberprogramm zur Erhöhung der 
Diskettenkapazität. Ermöglicht je nach Laufwerkstyp Kapazitäten bis 
830 KB unter CP/M. Vollkompatibel läuft z.B. mit: Turbo Pascal, 
DBase und Wordstar. Getestef in Schneider Aktiv 5/87, c't 5/87, PC 
Int. 6/87, CPC Magazin 4/87, Happy Computer 4/87,8. M&T Sonderheft 


00 1512 720 KB 3 5 

■ ^ -| 640 360 KB 525,1 

Festplattenkit 30 MB: 648.- 42 M B : 

249.- 

159.- 

748.- 

Frank Strauß Elektronik 


Schmiedstr .11 6750 Kaiserslautern Tel.(0631)67096-98 

Bitte bei Bestellungen genaue Systemkonfiguration angeben. 
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100,- DM 

für 1 kByte 

Die Herausforderung 

Herzlich willkommen zu unserer Herausforderung. Mit 
diesem Satz möchten wir unsere neuen Leser begrüßen. 
Diejenigen, die schon länger dabei sind, wissen schon, 
daß wieder viele Leckerbissen auf sie warten. Wenn Sie 
diese Seiten noch nicht kennen, sollten Sie sich die Be¬ 
dingungen anschauen, dort erfahren Sie alles Wissen- 
werte. 

Und nun wünschen w ir Ihnen viel Spaß und Freude 
beim Abtippen und Ausprobieren. 

1. Programm: Format 

Hiermit stellen wir Ihnen ein schnelles und sehr kurzes Pro¬ 
gramm für die Diskettenformatierung vor. 

Mit Speedformat können Sie Disketten im DATA oder SY- 
STEM-(VENDOR)-Format formatieren. Nach dem Pro¬ 
grammstart geben Sie das Laufwerk ein , auf dem Sie forma¬ 
tieren wollen, und dann das Format. (Die Eingaben müssen 
in Kleinschrift sein!!) Nach dem Formatiervorgang werden 
Sie gefragt, ob noch eine Diskette formatiert werden soll. 
Die Antwort ist entweder mit ’j' oder ’n’ für Ja oder Nein zu 
beantworten. 

(Oliver Mayer/cd) 

2. Programm: Morsen 

Dieses Programm wendet sich an alle, die sich mit dem The¬ 
ma Morsen und Funken beschäftigen. Aber auch die interes¬ 
sierten “Wellenreiter“ sollten sich dem Programm widmen, 
denn hier können sie üben. Im Funkwesen müssen Sie das 
Morse-Alphabet nämlich auswendig können. 

Das zweite Programm ist also ein Morsetrainer. Nach dem 
Start werden Sie nach der gewünschten Geschwindigkeit 
(Zeichen pro Minute) und nach der Dauer der Übung (in Mi¬ 
nuten) gefragt. Danach beginnt der Test. Nach Testende (Be¬ 
triebszeichen ’ar’ = = ENDE) können dann die mit¬ 

geschriebenen Zeichen mit denen auf dem Monitor vergli¬ 
chen werden. Bei Tastendruck folgt der nächste Test. 

Und nun wünschen wir Ihnen gutes Morsen. 

(Klaus Wombacher/cd) 

3. Programm: ROSETTE 

Grafik ist ein Thema, das immer wieder Spaß macht und in 
Staunen versetzt. Auch heute haben wir etwas dabei, was 
nicht nur schöne Grafiken erzeugt, sondern diese auch auf 
dem Bildschirm bewegen läßt. Schauen Sie doch einfach mal 
hinein. 



Es handelt sich bei diesem Programm um ein Grafikpro¬ 
gramm, daß mehr oder weniger “runde“ Muster erzeugt. Zu¬ 
erst muß die Eckenzahl eingegeben werden, danach berech¬ 
net das Programm die Eckkoordinaten, die auf einer Kreis¬ 
bahn liegen. 

Danach muß ein Faktor eingegeben werden. Bei Faktor 
gleich 1 werden alle Punkte mit allen anderen verbunden. Je 
höher der Faktor, desto weniger Linien werden gezogen. 
Diese Linien werden in drei Farben gezeichnet. Danach muß 
die Art des Musters eingegeben werden. Die Eingabe muß 
bei eins oder zwei liegen. Bei Art zwei wird das Muster vom 
Inneren aufgebaut. Der Unterschied wird erst bei höheren 
(> 30) Eckenzahlen deutlich. Dann entstehen aber völlig un¬ 
terschiedliche Muster. Wurde das Muster fertig gezeichnet, 
so scheint es von einer Seite des Bildschirms abzuspringen 
und so weiter. Genau darauf bezieht sich die letzte Eingabe, 
das Tempo. Tempo 1 ist das schnellste, und bei Tempo 0 be¬ 
wegt sich das Muster überhaupt nicht. Ein beliebiger Tasten¬ 
druck läßt das Programm beenden. Dieses wird mit den 
OUT-Befehlen &BC00 und &BD00 bewerkstelligt. Der 
CALL-Befehl &BD19 ruft die MC WAIT FLYBACK-Rou- 
tine im Betriebssystem auf. Dadurch wird ein besseres Bild 
gewährleistet. 

Beispieldaten 

Gute Ergebnisse liefern die Eingaben : 

Eckenzahl = 27 
Faktor = 1 
Art = 1 
Tempo = 1 
Eckenzahl = 35 
Faktor = 1 
Art = 2 
Tempo = 1 

Aber Sie sollten nicht nur diese Daten nehmen, sondern auch 
selber mit anderen Werten arbeiten. 

Viel Spaß beim Experimentieren! 

(Jens Bruhn/cd) 

4. Programm: Fast Screen Filler 

Manchmal ist es sehr sinnvoll, einen Bildschirm mit einem 
bestimmten Muster aufzufüllen oder zu bedecken. Genau für 
diesen Zweck wurde dieses Programm entworfen. 

Ein Programm, mit dem man den Bildschirm (nur in MODE 
2 sinnvoll) in “Null Komma nichts“, das heißt in 0.35 Sekun¬ 
den mit einem ASCII-Zeichen füllen kann. Der MODE-Be- 
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fehl wäre möglichst direkt vor ’ CALL &AF00 ’ ganz gut, 
um sicher zu gehen, daß der MODE nicht gewechselt wird. 
Im Demonstrationsteil wird die Anfangsadresse der ASCII- 
Zeichen von 0-255 berechnet, in Low- und High-Byte zerlegt 
und dem Maschinenprogramm zugefügt. 

(Radoslaer Smiljanic/cd) 


5. Programm: Sequence 


Ein Spiel für Denker und Tüftler. Auch bekannt unter dem 
Namen ’Mastermind’. 

Bei SEQUENCE gilt es, eine Ziffernfolge, die sich der Com¬ 
puter ausdenkt, mit so wenig Versuchen wie möglich heraus¬ 
zufinden. Zunächst können Sie wählen, aus wie vielen Zif¬ 
fern die Folge gebildet werden soll, und wie viele verschie¬ 
dene Ziffern Vorkommen dürfen. Wichtig ist noch, daß jede 
Ziffer maximal einmal in der Folge erscheint. Nun heißt es 
nachdenken. Die Eingabe der Versuche erfolgt mit den Zif¬ 
ferntasten. Nach einem Versuch gibt Ihnen der Computer als 
Anhaltspunkt für jede richtige Ziffer an der richtigen Stelle 
ein X’, und für eine richtige Ziffer an einer falschen Stelle 
ein ’O’ aus. Sie haben 20 Versuche, um die Ziffernfolge her¬ 
auszufinden. 


Viel Erfolg! 


(Jochen Franke/cd) 


6. Programm: Strich-Grafik-Programm (SGP) 


Zeile 90: Sie zeichnet die Grafiken. 

Zeile 100: Ist das Ende der Zeichenroutine. 

Zeile 110: Sorgt dafür, daß nach jeder Zeichnung das Pro¬ 
gramm gestoppt wird, damit man die Variable s abschreiben 
kann, falls gewünscht. Dazu später mehr. 

Zeile 120: Wählt die Variable s aus. Die lange Zufallsgene¬ 
rator-Routine wählt Zahlen aus, wie zum Beispiel 
3.77159265. Wenn s eine Zahl wie 0.12659... wird, dann 
dauert das Zeichnen zu lange, und die Zeichnung wird mei¬ 
stens nicht so hübsch. Deshalb der Befehl “if s< 1...“. 

Zeile 130: Beispiel, wie man eigene Variablen in das Pro¬ 
gramm bringt. Man braucht nur s zu bestimmen, das Hoch¬ 
zeichen zu entfernen, und ein Hochzeichen vor die Zeile 120 
zu setzen. 

Zeile 140: Wenn eine Zeichnung besonders schön geworden 
ist, kann man dank dieser Zeile (und Zeile 110, die das Pro¬ 
gramm unterbricht) die Variable s aufschreiben und sie gege- 
benfalls in Zeile 130 einsetzen. 

Zeile 150: Wählt die Farbe aus. 

Zeile 160: Der angesprochene Rechnungsfehler in Zeile 120 
wird hier egal gemacht. Das Programm beginnt von neuem, 
bis die Rechnung brauchbar ist. 

Alles, was man tun muß, ist: Bleistift und Schreiber bereitle¬ 
gen, Programm starten, Taste drücken, eventuell schreiben, 
Taste drücken,... usw. 


Dieses Programm zeichnet Grafiken, die nur aus Strichen be¬ 
stehen. Währendem der Computer zeichnet, scheint sich die 
Figur zu drehen. Nur selten wird sie ohne Drehung größer. 
Ein wunderbares Programm, das schöne unterschiedliche 
Grafiken zeichnet. Lassen Sie sich überraschen! 

Wie funktioniert’s ? 

Ganz einfach. Wir werden Zeile für Zeile erklären. 

Zeile 10: Ist da, um den immer wieder vorkommenden Re¬ 
chenfehler in Zeile 120 zu beheben. In Zeile 160 startet das 
Programm wieder. 

Zeile 20: Setzt den Modus und BORDER + Hintergrundfar¬ 
be 

Zeile 30: Die Variablen xp und yp sind nötig, um die Rechen¬ 
routine zu vereinfachen. Diese beiden Variablen sind fix. 

Zeile 40: Startet das Unterprogramm. Das Unterprogramm 
ist die Rechenroutine, die sämtliche anderen Variablen, wel¬ 
che in der Zeichenroutine Vorkommen, per Zufall auswählt. 
Das Programm kann die Zeilen 10 bis 30 vergessen, deshalb 
sojlte man bei einem Abbruch mit “Goto 40“ einsteigen. 

Zeile 50: Setzt den Grafikcursor, der sich ab nun nicht mehr 
verändert. 

Zeile 60: Sorgt dafür, daß der Durchmesser der Zeichnung 
360 nicht überschreitet. 

Zeile 70: Bildet zusammen mit Zeile 80 die eigentliche Zei¬ 
chenroutine. Hier werden die Variablen gesetzt. Jede Ände¬ 
rung dieser Zeilen verursacht andere Grafiken. 

Zeile 80: Hier passiert dasselbe — nur mit anderen 
Variablen— wie in Zeile 70. 


Hinweis 

Es ist auch möglich, die Grafiken so zu ändern, daß sie den 
Eindruck erwecken, als könnte man sie von der Schräge aus 
sehen. Ändern Sie die Zeilen 70 und 80 so ab, das folgendes 
steht: 70 ....x2 = xp + x, 80 .... y2=yp-f y. Weiter kann man 
die Zeile 70 oder 80 so ändern, das ....x2 = xp + x*3 
(y2=yp + y*3) in ihr steht. Allerdings sollte man auch Ände¬ 
rungen in der Zeile 60 vornehmen, da es sonst zu einer Feh¬ 
lermeldung kommen könnte. Zum Beispiel, den Wert 180 
auf 120 oder 60 ändern. 

Viele hübsche Grafiken wünschen Ihnen 

(Oliver Bertschinger/cd) 

Die Bedingungen 

Hier noch einmal die Bedingungen unseres Wettbewerbs: 
Wir suchen komplette Programme (bitte ohne Steuerzei¬ 
chen!), die funktionsfähig möglichst auf allen drei CPCs lau¬ 
fen (was nicht heißen soll, daß wir bei besonders guten keine 
Außnahme machen) und die nicht länger als 1 kByte sind 
(Anzeige auf dem Datenträger gilt). Der Preis für solche Pro¬ 
gramme beträgt DM 100. — . Senden Sie uns Ihr Programm 
auf Datenträger (Diskette/Kassette) mit Programmbeschrei¬ 
bung (möglichst in ASCII-Form mit auf dem Datenträger) 
zu, und zwar an den 

DMV-Verlag 
Stichwort 100,- DM 
Postfach 250 
3440 Eschwege 
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für 464-664-6128 

1 


10 REM ********************** (1287] 

20 REM * Fast Screen Filler * [1474] 

30 REM * * [403] 

40 REM * by * [591] 

50 REM * * [403] 

60 REM * RADOSLAV * [530] 

70 REM * SMILJANIC* [1285] 

80 REM ********************** [1287] 

90 beiiebig=&6FFF:SYMBOL AFTER 256:MEMORY [4595] 

beliebig ' bei 1ebig> = &4800 

100 SYMBOL AFTER 0 ' sehr wichtig !!! [2210] 

110 REM Maschinen-Code einiesen [1331] 


120 FOR b=&AF00 TO &AF28:READ q$:POKE b,VA [2050] 
L ( '•&"+ q$) : NEXT 

130 PRINT"Fuer eine Demo >Taste< !":CALL 8. [4020] 
8B18:GOTO 160 

140 REM Datas [518] 

150 DATA 21,00,c0,dd,21,7c,9e,01,d0,07,cd, [6940] 
15,af,23 t 0b,78,bl,c2,0a,af,c9,e5,dd,e5,ll, 

00,0 8,dd, 7e,00,77,dd,23, 19,d 2, lb,af,dd,el, 
e 1, c9 

160 REM Demo [446] 

170 FOR a=0 TO 255:PRINT CHR$(l)CHR$(a)j:N [4280] 

EXT:PRINT:PRINT">Taste< !":CALL &BB18 
180 MODE 2:FOR a = 0 TO 255 ' Ascii-Zeichen [3855] 
von 0-255 

190 h$ = HEX$((HIMEM+l)+(8*a) ) [ 1200] 

200 hr$ = RIGHT$(h$,2 ) :POKE &AF05,VAL( &" + hr [ 878 ] 

$) 

210 hl$=LEFT$(h$,2):POKE &AFO6.VAL("&" + h1 $ [3395 ] 

) 

220 CALL &AF00:NEXT [ 737 ] 

Lisling Fas! Screen Filler 



5 REM sequence 

10 RANDOMI ZE TIME:PAPER 0:M0DE 0:BORDER 0: 
PEN 9:FOR 1=0 TO 9:READ c:INK i,c:NEXT:PRI 
NT TAB(6)"SEQUENCE":WINOOW 1,80,2.25:DATA 
0,20,18,16,14,12,10,8,6,26 

20 CLS:PRINT:INPUT"Steine ( 4 - 6 ) :",n:I 

F n < 4 OR n > 6 THEN 20 

30 PRI NT"F a r ben ("n"-"n + 2") INPUT"",f : 

IF f < n OR f >(n + 2 ) THEN 30 

40 r$="":WHILE LEN(r$)<n:z$=RIGHT$(STR$(IN 
T(RND*f+l)),1):IF INSTR(1,r$,z$)=0 THEN r$ 
= r$+z$ 

50 WEND:a=0:CLS 

60 a = a+1:LOCATE l,25-a:PRINT USING"##";a ; : 
PRINT"v$="FOR 1=1 TO n 
70 z$=INKEY$:IF z$<"l" OR z$>RIGHT$(STR$(f 
),1) OR INSTR(1,v$,z$)<>0 THEN 70 ELSE v$= 
v$+z$:PEN(VAL(z$)):PRINT z$;:PEN(9) 

80 NEXT:e$=" M :e=0:F0R i=l TO n:IF INSTRfl, 
r$,MID$(v$,i , 1 ) ) < > 0 THEN IF MID$(v$,i ,1 ) = 
MID$(r$,1,1) THEN e$="x"+e$:e=e+1 ELSE e$= 
e$+"o" 

90 NEXT:PRINT" "e$;:IF a<20 AND e<n THEN 6 
0 ELSE LOCATE 1,2:IF e=n THEN PRINT"Richt1 
g" ELSE PRINT"D1e Zahl Ist "; :FOR i = l TO n 
:z$=MID$(r$,1,1):PEN(VAL(z$)):PRINT z$;:NE 
XT:PEN(9 ) 

100 CALL &8B06:GOTO 20 


[ 1027] 

[ 13412 ] 

[ 2032 ] 

[ 5365 ] 
[5393] 

[838] 

[5272] 

[ 6588 ] 

[ 4901 ] 

[ 11937 ] 


[1142] 


Lisling Sequence 


10 ON ERROR GOTO 160 [1461] 

20 CLS:INK 0,0:BORDER 0:MODE 2 [952] 

30 xp=320:yp=200 [1171] 

40 GOSUB 120:GOTO 40 [1469] 

50 MOVE xp.yp [565] 

60 FOR w=l TO 180*PI STEP s [ 1447] 

70 x=(w/3)*SIN(w):x2=xp+x [1638] 

80 y=(w/3)*COS(w):y2=yp+0.9*y [1177] 

90 DRAW x2,y2 [55] 

100 NEXT w [361] 


110 LOCATE 36,25:PRINT"<TASTE>":WHILE INKE [2696] 
Y$=”":WEND:CLS:RETURN 

120 s=INT(RND*10)*PI/INT(RND*10)+(INT(RND* [5045] 
1000))/1000:IF s<l THEN S=S+2:G0T0 140 ELS 
E GOTO 140 

130 '3=9.7:goto 140 [382] 

140 PRINT s:GOSUB 150:GOTO 50 [1555] 

150 f=INT(RND*22)+5:IF z=f THEN 150 ELSE Z [5095] 

=f:INK 1,f:RETURN 

160 RUN [243] 

Lisling Slrich-Gralik-Programm 


10 CALL &8C02 : MODE 1 : FOR a=8,A000 TO &A015: [3201] 
READ a$:POKE a,VAL("&"+a$ ) :NEXT 

20 PRINT"Speedformat 1988 by Oliver Mayer [3389] 


30 PRINT"D r1ve A/B" 

40 d$=INKEY$:IF d$< >"a"AND d$< >"b"THEN 40: 
ELSE d=ASC(d$)-65 
50 PRINT"DATA oder SYSTEM" 

60 a$=INKEY$:IF a$="d”THEN s=&C0 ELSE IF a 
$="s“THEN s=&40 ELSE 60 

70 y=&A020:x=y:RESTORE 140:FOR a=l TO 9:RE 
AD b:POKE y,0:POKE y+l,0:POKE y+2,b+s:POKE 
y+3,2:y=y+4:NEXT 

80 LOCATE 1,7:PRINT"Diskette einlegen ":C 
ALL &BB06 

90 FOR t = 0 TO 39:LOCATE 1,7:PRI NT"Forma11e 
re Track"t 

100 FOR a = x TO 8.A042 STEP 4:P0KE a, t: NEXT: 
CALL 8.A000 , d , t , S , x : NEXT 

110 LOCATE 1,7:PRINT"Noch eine Diskette ?" 
120 a$=INKEY$:IF a$="j" THEN 80 ELSE IF a$ 
="N" THEN END ELSE 120 

130 DATA dd,5e,6,dd,56,4,dd,4e,2,dd,66 . 1 ,d 
d,6e,0,df,13,aO,c9,52,c6,7 
140 DATA 1,6,2,7,3,8,4,9,5 


[1819 ] 
[3109 ] 

[ 1984] 
[2495] 

[6040] 


[ 35 76 ] 

[3196] 

[ 5001 ] 

[ 3699 ] 
[ 3777 ] 

[ 2957] 

[993] 


Lisling Forma! 


10 ' 1988 by Klaus Wombacher [1271] 

20 CLEAR:RANDOMIZ E TIME:DIM f$(26):RESTORE [ 4605] 
40:FOR x=0 TO 26.READ f$(x):NEXT 
30 MODE 2:WINDOW 1,80,6,25:WINDOW#1,1,80,1 [3473] 

, 5 

40 DATA ... — [ 5272 ] 


50 LOCATE#l,4,2:IN PUT#1,"Wieviele Minuten 
soll der Test dauern ? ",t:IF t=0 THEN t=l 
60 LOCATE#l,4,4:INPUT#1,"Mlt welcher Gesch 
windigkelt (Zeichen/Min.) ? ",v:IF v=0 THE 
N v = 40 

70 CLS#1:LOCATE#1,30,3:PRINT#1,"Achtung , T 
est laeuft !" 

80 vr=900/v:vl=vr/3:v2=vr:v3=vl*10 

90 FOR vz=l TO 3000:NEXT vz:FOR y=l TO t:F 

OR z =1 TO v 

100 x=INT(RND(l)*26+l):GOSUB 130:PRINT CHR 
$ ( x + 9 6 ) ; " " ; 

110 SOUND 1,1,v3,0:NEXT z:PRINT:NEXT y:x=0 
:GOSUB 130 

120 CLS#1:WHILE INKEY$="":WEND:CLS:GOTO 50 
130 FOR f=l TO LEN(f$(x)):a$=MID$(f$(x),*, 
1) 

140 IF a$="." THEN SOUND l,100,vl,15 
150 IF a$="-" THEN SOUND l,100,v2,15 
160 SOUND 1,1,vl,0:NEXT f:RETURN 

Lisling Morsen 


[8083] 
[5227] 


[3224] 

[2181 ] 
[ 3069 ] 

[2889 ] 

[2690 ] 

[ 1872 ] 
[3350] 

(1382] 
[ 1537 ] 
[ 1692 ] 


10 'J. Bruhn [1094] 

20 INPUT "Eckenanza:INPUT "Faktor:",b: [5378] 
INPUT "Art:",c:INPUT "Tempot:MODE 1 
30 INK 0,0:BORDER 0:INK 1,26:INK 2,10:INK [2883] 

3,16:INK 4,5:DIM x(a+1),y(a+1) 

40 ORIGIN 150,250:DEG:f=0:FOR i=0 TO 360 S [6821] 
TEP 3 60/a: 1=1 /( 360/a ) + 1 : x(1 ) = 15 0*SIN(i):y( 

1)=150*C0S(1):NEXT 1 :d= 1 :e=a/2:IF c =2 THEN 
d=a/ 2 :e=a 

50 FOR j=d TO e STEP b:f=f+l:IF f = 4 THEN f [2706] 
= 1 

60 FOR 1=1 TO a:MOVE x(i),y(1):x=1+j:IF x> [2908] 
a THEN x=x-a 

70 y=i+j:IF y > a THEN y = y-a [ 32 77 ] 

80 DRAW x(x),y(y), f :NEXT 1,j:IF t=0 THEN C [4332] 
ALL &BB06 : GOTO 150 

90 x=46:y=31:rx=1:ry=l [1458] 

100 OUT 8 .BCOO , 2 : CA L L &BD19:OUT &BDOO,x:OUT [3063] 
8.BC00,7 : OUT 81 BDOO , y 

110 y = y+ ry:IF y = 20 OR y = 35 THEN ry = -ry:GOT [3827] 
0 110 

120 x = x+ rx:IF x = 21 OR x = 47 THEN rx = -rx:G0T [3446] 
O 120 

130 IF INKEY$ < >“" THEN 150 [ 773] 

140 FOR k=1 TO t:NEXT k:GOTO 100 [2176] 

150 OUT 8 i 8 COO , 2 : OUT &BD00,4 6 : OUT &BC00,7:O [ 2791 ] 
UT &BD00.31 

Lisling Roselle 
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Spiele für CPC 


1943 

20.000 Meilen 

unter dem Meer 

3DThaiBoxing 

Academy 

Afterburner 

Aliens 

Aliens us 

Americas Cup 

Challenge 

Arcade Force Four 

Armageddon Man 

Artura 

Asterixim 

Morgenland F. 6128 

Axiens 

Bard'sTalel 

Batman 

Bedlam 

BiomcCommando 
Blueberry und das 
Gespenst 
Bomb Jack 2 
Bubble Ghost 
Buggy Boy 


Cass. Disk. 
29.30 44.80 


47.90 
26.20 43.30 
29.30 

47.90 

29.30 

43.30 


California Games 
Captain America 
Catch 23 

Chamonix Challenge 
Championship Sprint 
Charlie Chaplin 
Clever & Smart 
CrazyCars 


29.30 39.90 

27.80 39.90 
26.20 39.90 

47.90 

47.90 

29.90 

44.80 

46.40 


29.30 

55.70 
38.60 43.30 
34.00 47.90 


Dark Fusion 
Desolator 
Dogfight2187 
Dragon Ninja 
Dun Daragh 
Dynamic Duo 


47.90 
29.30 44.80 
43.30 
47.90 
29.90 39.90 
47.90 


43.30 
38.60 
47.90 
29.90 44.80 


Elevator Action 
Empire Strikes Back 
EpyxfThe Worlds 
Greatest) 

Escape from 
Sings Castle 
EveningStar 
Exolon 
Eye 

Fairlight 

Fifth Quadrant 

Fire&Forget 

Fists'nThrottles 

GalacticConqueror 


37.10 
29.30 44.80 


29.90 55.70 


26.20 43.30 
26.20 

23.10 38.60 

47.90 

29.90 

29.90 

29.30 

47.90 
29.30 44.80 


Game Set and 


Match 2 
Games Set 
and Match 
Gauntlet2 
Get Dexter 
Giants Compilation 
Golden Path 
Great Escape 
Hacker 2 
HeadoverHeels 
Heavy onthe 
Magick 

Hereosofthe Lance 

High Frontier 

Impossible Mission 2 

infodroid 

Jagd auf Roter 

Oktober 

Killeduntildead 

Knight Orc 

LazerTag 

Leaderboard Par 3 

Leben und sterben 

lassen 

LedStorm 

Legend ofKages 

Lightforce 

Living Daylights 

LukyLuke 

Nitroglycerin 


Cass. Disk. 


38.60 54.10 
44.80 

29.90 

38.60 44.80 
46.40 


Mach 3 


Mad Balls 
Mag Max 
MarbleMadness 
Constr.DeLuxe 
MarbleMadness 
Constr. Set 
Mewilo 6128 


46.40 


26.20 43.30 
23.10 38.60 


Sidewalk 


Six Pack 3 


Slap Fight 
Space Harrier 
Spy Versus Spy 
Spy Versus Spy 3 
Starquake 
Strange Loop 
SuperSprint 


Cass. Disk. 

43.30 
29.90 46.40 
23.10 

23.10 38.60 
29.30 43.30 
26.20 39.90 
37.10 
46.40 
39.90 


23.10 


Minderem the 



Supreme Challenge 


54.10 

29.30 


Atlantic 


57.20 

Survivor 

26.20 

39.90 

23.10 


Mysteryof the Nile 

19.90 

39.90 

Sweevos World 


46.40 



Nebulus 


46.40 

Taipan 


39.90 

29.90 


Nemesis 

26.20 

43.30 

Tarzan 

27.80 

39.90 

29.30 

44.80 

Night Raider 


47.90 

Terror of the deep 

29.30 

43.30 

29.30 

44.80 

One 

29.30 

43.30 

Tetris 


38.60 

29.30 

44.80 

Out Run 

29.30 

44.80 

Throne offire 

26.20 


27.80 

43.30 

Pacmama 

34.00 


Thunderblade 

29.30 

44.80 



Peter Pan 


47.90 

Tiger Road 


44.80 

44.80 

58.80 

R-Type 


47.90 

Trailblazer 

26.20 

38.60 


39.90 

Roadblasters 

29.30 


Trantor 

26.20 


43.30 

58.80 

Robocop 


47.90 

Trivial PersuitDT. 

47.90 

59.90 

29.30 

44.80 

Rolling Thunder 


44.80 

Turbo Cup 


47.90 

53.70 


Rückkehr der 



Typhoon 


47.90 



Jedi Ritter 

29.90 

47.90 

Vindicator 

29.30 

47.90 

29.90 

47.90 

Rygar 

26.20 

39.90 

WecLeMans 


47.90 

29.30 

44.80 

Saboteur 

29.30 

49.50 

Winter Edition 

29.30 

44.80 


38.60 

Saboteur 2 


29.90 

Working Backwards 


46.40 

26.20 

39.90 

Sentinel 

29.30 

43.30 

Xevious 

29.30 

43.30 


43.30 

Shadowfire 

29.90 


Xor 

27.80 

43.30 


Shogun 
Short Circuit 


29.90 49.50 
23.10 


Wir führen Software für Amiga, CPC, Atari ST und IBM-Kompatible. Einige tausend Programme sind ständig am Lager! 



HARDWARE 


KUNSTLEDER-HAUBEN 


AMSTRAD 


CPC-ZUBEHOR 


CPC 464/664 . 19.80 

CPC 6128 . 19.80 

Monitor GT 64/65 . 27.90 

Monitor CTM 640/644 . 29.95 

EuroPC Tastatur . 21.80 

EuroPC Monitor MM 12. 34.90 

EuroPC Monitor CM 14. 37.90 

EuroPC Tastatur u. MM 12. 49.80 

EuroPC Tastatur u. CM 14 . 55.80 

PC 1512/1640 Tastatur. 19.80 

Schneider PC 2640 Tastatur. 19.80 

no name MF Tastatur . 19.80 

PC 1512/1640 eintlg.komplett. 49.80 

PC 1512/1640 zweitlg. Set. 59.80 

DMP 2000/2160/3000/3160 . 19.80 

Star NL/ND/NR 10. 24.90 

Star LC 10 . 24.90 


CPC 464 u. Grünmonitor GT 65 398.00 

CPC 464 u. Farbmonitor CTM 644 698.00 

CPC 6128 u. Grünmonitor GT 65 798.00 

CPC 6128 u. Farbmonitor CTM 644 1098.00 


Star LC 10 


Kabel CPC/an Fernseher m. Scart .... 

Bildschirmfilter GT 64/65 . 

Bildschirmfilter CTM 640/644 . 

Druckerkabel 464/664 . 

Druckerkabel 6128 . 

Monitorverlängerung CPC 464 . 

Monitorverlängerung CPC 664/6128 
Kabel Computer/Recorder . 


Telefonische Bestellung (Tag + Nacht): 

(0 23 05) 3770 


Wir haben eine große 
Auswahl an PC-Zubehör. 
Fragen Sie bitte nach. 


Ladengeschäftszeiten: 
Montag-Freitag 9.00 - 13.00 Uhr 
15.00- 18.30 Uhr 
Samstag 9.00 - 14.00 Uhr 
Langer Samstag 9.00 - 18.00 Uhr 

Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch.-Kto. Nr. 69422-460 PschA Dortmund zuzügl. 5, - DM Ver¬ 
sandkosten. 

Ausland nur per Vorkasse auf Psch.-Kto. zuzügl. 10, DM Versand¬ 
kosten Bitte bei allen Bestellungen Computertyp angeben! 


So finden Sie unser Laden geschäft: 

A42 (Emscherschnellweg) Abfahrt 
Castrop-Rauxel. B 235 Richtung Wit¬ 
ten. 2. Ampel rechts, 1. Ampel links, nTCirrTTriu 

dann 2. Ampel links. Über 60 Park- DiaKlL 1 1 Ü.IM 

plätze stehen Ihnen am Hause 
kostenlos zur Verfügung. 


No Name 3V2", 10 Stck. 24.90 

Maxell 3 ”, 10 Stck. 69.00 


O Senden Sie mir bitte Ihren Katalog 
(2,— DM in Briefmarken liegen bei) 
Hiermit bestelle ich 

O per Nachnahme O per Vorkasse 
O Incl. kostenlosem Katalog 


BESTELLSCHEIN 


Vorname, Name 


Besuchen Sie unser Ladengeschäft und lassen Sie sich durch j 
unser geschultes Fachpersonal beraten. Wir haben laufend . 
günstige Angebote und stark reduzierte Vorführgeräte. 


| Straße, Hausnummer 



Irrtumoi und Pr«is4nderungen voibululten 


| Computer- und Monitortyp 


Datum, Unterschrift 













































I—Tips & Tricks 


Der Saubermacher 

Bildschirmlösch ung 

Zu diesem Thema wurden bereits einige Beiträge über 
Routinen, die den Bildaufbau auf andere und besondere 
Art löschen, veröffentlicht. Die meisten der vorhande¬ 
nen Routinen haben den Fehler, den Bildschirm zwar zu 
löschen, aber nicht in der dem PAPER zugeordneten 
Farbe. Hinzu kommt noch, daß ein Großteil solcher 
Hilfsprogramme ziemlich lang ist. Das größte Leidwesen 
ist aber, daß meistens der Bildschirminhalt nicht Scrol¬ 
len darf. Bei der hier abgedruckten Routine ist das nicht 
mehr der Fall. 

1. Die nun folgende, nur 88 Byte lange Maschinencoderouti¬ 
ne ermöglicht es dem Basicprogrammierer, sie durch einen 
komfortablen RSX-Befehl aufzurufen. 

2. Der Assemblerprogrammierer kann die vorhandene Rou¬ 
tine ausbauen und/oder relokatibel nutzen. Die RSX-Einbin- 
dung kann dann getrost weggelassen werden (siehe hierzu 
das dokumentierte Assemblerlisting). 

3. Vor allem wird immer mit der dem PAPER zugeordneten 
Farbe gelöscht. Zu beachten ist nur, daß das Fenster #0 
(nicht das in Ihrem Zimmer, sondern das Bildschirmfenster 
des CPC) — immer die Cursorkoordinate 1,1 — in der ober¬ 
sten linken Ecke des Bildschirmes angesiedelt ist. 

4. Durch Angabe von zwei Parametern kann der Bildschirm 
auf individuelle Weise angesprochen werden. 

5. Durch eine besondere Programmierung wird die Scrolldif- 
ferenz nach dem Scrollen des Bildschirmes mit berücksich¬ 
tigt. Auch das ist gegenüber vorherigen Routinen eine Neue¬ 
rung. Der Bildschirminhalt darf daher horizontal geschoben 
worden sein. Übrigens funktioniert das bei allen CPC-Ty- 
pen. 

Anwendungsweise 

Nach Abtippen des Basic-Laders sichern Sie diesen auf Da¬ 
tenträger und starten ihn dann. Wenn alles richtig abgetippt 



wurde, wird eine kleine Binärdatei mit dem Namen 
BILD.BIN abgespeichert. Dieses können Sie wie folgt einla- 
den: 


10 adr=8tA000:MEMORY adr-l:L0AD“bild. bin":CALL &A000 

Den CALL &A000 bitte nur einmal durchführen, sonst wird 
der CPC sauer, und es kommt zum Absturz (hierdurch wird 
der RSX-Befehl | CLS installiert). Nun steht Ihnen der Befehl 
| CLS zur Verfügung. 

SYNTAX: | CLS,löschart,pause 

Die Variable “löschart“ kann dabei Integerwerte von 0 bis 
255 annehmen. Eine 0 führt eine dem normalen CLS ähnli¬ 
che Löschung durch. &FF in MODE 2 sowie &F0 in MODE 
1 oder &C0 in Mode 0 invertiert zunächst den ganzen Bild¬ 
schirm, um letztendlich alles vollständig “zu säubern“. Alle 
anderen Werte führen modusabhängig zu Pixel- und gegebe¬ 
nenfalls zu Farbänderungen. Aber keine Sorge, der Bild¬ 
schirm wird immer wieder mit der dem PAPER zugeordne¬ 
ten Farbe gelöscht. Auch finden tatsächlich keine INK- oder 
PEN-Änderungen statt, da sich alle Vorgänge nur auf den 
Bildschirmspeicher beziehen. 

Auch die Variable “pause“ kann Werte von 0 bis 255 annch- 
men. Dieser Wert stellt die Geschwindigkeit ein, mit welcher 
der Löschvorgang durchgeführt wird. Der schnellste Wert ist 
“1“. Übrigens können Sie das Assemblerlisting mit dem 
CPC-Assembler aus Heft 6/88 assemblieren. 

Nun viel Spaß mit dem neuen CLS. 

(Holger Schäkel/cd) j 



20 '♦ BILD.DAT - DATA-Lader von 'CPC' * [1613] 

30 '*********************************** [1460] 

40 ' [117] 

50 DATA A000,01,0A,A0,21,12,AO,CD,Dl,174B [1713] 

60 DATA A008.BC,C9,0E,A0,18,08,43,4C,67AA [1429] 
70 DATA A010.D3,00,00,00,00,00,FE,02,687E [1572] 

80 DATA A018,C0,21,00,C0,E5,7E,DD,AE,6384 [1689] 

90 DATA A020,02,77,23,43,10,FE,97,BC,1E7A [2245] 
Listing Bild 


100 DATA A028,20,F3,21,01,01,CD,75,BB,2B90 [2033] 
110 DATA A030,El,3E,20,CD,5A,BB,E5,OE,7628 [1825] 
120 DATA A038,00,CD,15,B9,7C,B7,28,06,3B1A [1575] 
130 DATA A040,ED,4B,C4,B7,18,04,ED,4B,76F1 [1549] 
140 DATA A048,C9.Bl,El,E5,09,4E,97,El,5A0F [1438] 
150 DATA A050,71,23,43,10,FE,BC,20,F8,3C98 [1217] 
160 DATA A058,C9,00,00,00,00,00,00,00,6480 [838] 


170 DATA * ENDE* [ 502 ] 

180 adr=&A000:zei1e=50:MEMORY adr-1 [1876] 

190 READ d$:IF d$="*ENDE*"THEN 300 [1132] 

200 pr=0 [117] 

210 FOR i=1 TO 8 [462] 

220 READ a$:a=VAL(" & " + a $ ) [883] 

230 POKE adr.a:adr=adr+l [717] 

Listing Bild 


I 
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240 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

250 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+655 [1890] 
36 

260 NEXT i [375] 

270 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 THE [2610] 
N pr2=pr2+65536 

280 IF pr<>pr2 THEN PRINT"Pruefsummenfeh 1e [3615] 
r in Zei1e";zei1e:STOP 

290 zei1e=zeile+10:GOTO 190 [2018] 

300 SAVE"BILD.BIN",B,&AÖ00,&59 [1504] 

310 PRINT d$:END [346] 


10 ' Demoprogramm zu Bildschirmloeschung 

[2317] 

20 ’ 

[117] 

30 adr=&A000:p=0:MEMORY adr-1:DEFINT a-z:D 
EG:IF PEEK(&A000)=0 THEN LOAD"bi 1d.bin":CA 
LL &A000 

[6463] 

40 MODE 2:GOSUB 80:1CLS,&FF-p,45:IF p=0 TH 
EN p=50:RAD:GOTO 40 

[4809] 

50 MODE 1:GOSUB 80:!CLS,&F0,25:DEG:GOSUB 8 
0:!CLS,&F,60 

[4156] 

60 RAD:MODE 0:GOSUB 80:1CLS,&C0,15:DEG:GOS 
UB 100:!CLS,&3,60 

[4205] 

70 END 

[110] 

80 ' 

[117] 

90 CLS:FOR x=l TO 25:PRINT"Dleses ist ein 
Test.":NEXT 

[4410] 

100 FOR x=l TO 360:ORIGIN 400,200:DRAW 190 
♦ COS(x),190*SIN(x),INT(RND*16):NEXT 

[5132] 

110 RETURN 

[ 555 ] 


10 • 

org &a000 

;Fest 1egung 

der An 

[ 1862 

] 

fangs 

ad resse 





20 1 

Id bc,rsxtab 

iBC mit der 

Ad ress 

[ 3404 

] 

e der 

RSX-Tabelle laden 




30 ' 

1d hl,sysbyt 

;Die Adresse 

der 4 

[ 3381 

] 

Syst 

.embytes an HL 





40 • 

call &bcd 1 

;RSX-Befehl 

1CLS 1 

[ 3444 

] 

nsta 1 

1ieren 





50 1 

ret 

;RuecKsprung 


[ 1633 

] 

60 ‘ 

rsxtab dw namtab 

;Tabe11e mit 

Ad res 

[ 5037 

] 

se de 

:s Namens belegen 





70 1 

jr Start 

(Routine auf 

rufen 

[2610 

] 

80 ' 

namtab dm "CL" 

;Namenstabe 1 

1 e 

[ 1459 

] 

90 ' 

db 211 

;Buchstabe " 

S"+ges 

[2865 

] 

etztem Bit 7 als Abschi 

uss 




100 ■ 

db 0 

;Kennzeichnu 

ng des 

[998] 


Ende 

is des RSX'ses 





110 ' 

sysbyt ds 4 

;Spei eher de 

r 4 Sy 

[2159 

] 

stembytes 





120 ' 

Start cp 2 

;Zwei Werte 

uebe rg 

[ 1286 

] 

eben 

■> 





130 ' 

ret nz 

;wenn nein z 

u rueck 

[ 1649 

1 

140 1 


;Fuer den As 

sembl e 

[8304 

] 

rprog 

irammlerer wird es 

erst ab hier 

inte re 



ssant 

.. Oie Routine ist 

ab hier relok 

atibe1 




. ) 

Listing Bild 


150 ' 

ld hl,&C000 

;Programmbeg1nn |C 

[ 5288] 

LS,(Aendern 1-255 ),( 5chnel1igk. 0-255) 


160 ' 

push hl 

;HL merken 

[863] 

170 ‘ 

hier ld a, (hl ) 

;A zum aendern ben 

[ 1685 ] 

utzen 




180 ' 

xor (ix + 2 ) 

;und aendern (Asse 

[4880] 

mb 1 e r 

program, anstatt 

( 1x + 2) den Wert ange 


ben . ) 



190 1 

ld (hl),a 

; Inhalt wieder zur 

[3646] 

ueck 

an alte Adresse 



200 ' 

inc hl 

; HL erhoehen 

[1203] 

210 1 

1 d b , e 

(Geschwindigkeit f 

[4094 ] 

estlegen (Fuer MC, st 

att E-Reg. den Wert a 


ngebe 

n ) . 



220 ‘ 

eins dj nz eins 

(Warteschi eife 

[2373] 

230 ‘ 

sub a 

;A auf 0 bringen 

[1174] 

240 ' 

cp h 

(Vergleich ob Ende 

[3430] 

Bl ld 

schirmspe1 cher e 

r re i cht 


250 ' 

j r nz,hi er 

(wenn nicht, wi ede 

[3034] 

r zu r 

ueck 



260 ' 

ld hl,&0101 

(Cursor positionie 

[1884] 

ren 




270 ' 

call &bb 7 5 


[578] 

280 1 

pop hl 

(BiIdschirmanfang 

[1757] 

hol en 




290 ' 

ld a,32 

; Leerzeichen in 1i 

[2585] 

nke E 

cke bringen 



300 1 

cal1 &bb5a 


[ 794 ] 

310 • 

push hl 

(HL merken 

[863 ] 

320 ’ 

ld c,0 

(Version ermitteln 

[2157] 

464 

oder 664,6128 



330 1 

call &b9 1 5 

(KL PROBE ROM aufr 

[1118] 

u f en 




340 ‘ 

1 d a , h 

(Version nach A 

[ 1135 ] 

350 1 

O r a 

(wenn 0, dann ein 

[884] 

464 




360 ' 

j r z,cpc464 


[944] 

370 1 

ld bc,(&b7c4) 

; ScrolIdifferenz n 

[2131 ] 

ach BC 



380 1 

j r we i 


[92] 

390 ‘ 

cpc4 64 ld bc,(&blc9 ) 

[ 1085 ] 

400 1 

wei pop hl 


[641] 

410 ' 

push hl 


[ 457 ] 

420 ‘ 

add hl.be 


[ 774 ] 

430 ' 

1 d c , ( hl ) 

(C mit PAPER-Wert 

[ 3965 ] 

beleg 

en 



440 1 

sub a 

;A auf Null bringe 

[ 1360] 

450 ' 

pop hl 

(Adresse holen 

[2154] 

460 • 

rum 1d ( h 1 ) ,c 

(Bildschirm loesch 

[1575] 

en 




470 1 

inc hl 

(Adresse erhoehen 

[2812] 

480 ' 

1 d b , e 

(Warteschleife ins 

[5263] 

tal 1 i 

eren (Fuer MC, w 

ieder den Wert nach B 


• i 

490 ' 

noch djnz noch 


[1159] 

500 1 

cp h 

(Vergleich ob Ende 

[ 2505 ] 

er re 

i cht 



510 ' 

j r nz,rum 

(wenn nicht, wiede 

[3585] 

r zur 

ueck 



520 1 

ret 

(Basic-Ruecksprung 

[1184] 

Listing 1 

3ild 




CPC-820 KB 5,25“ Floppy 

5,25" Teamdrive Super Disketlenslalion 820 KB, 256 Einträge, anschlußferlig I. 464, 664, 6128, 
Gehäuse siehe Abbildung, umschallbar auf 180 KB, incl, Teamdrive-Maxi-Programm 
vollkompaübel zu BASIC. CPM u CPM-Plus. hochwertiges Floppylaulwerk. benulzerfreunalich, in¬ 
ternes Netzteil, problemloser Anschluß, mit Bedienungsanleitung, 1 Jahr Garantie DM 369, - 

JOYCE 720 KB 5,25“ Floppy ^ 

Teamdrive Diskettenstation. Gehäuse siehe Bild, 
internes Netzteil, komplett mit Anschlußkabel u. 

Anleitung, problemlos und schnell anschließbar, 
incl. Umschalter für MS-Copy 
Spezialkabel I Joyce Plus (8512) mit Umschalter vom 3" B-Lautwerk intern zum 5,25“ 

B-Laufwerk extern DM 30, - 

MS-Copy: sehr nützliches Programm zum Kopieren von CPM auf MS-DOS- 

Textdateien und umgekehrt DM 49, - 

MSD: Anschlußkabel für unsere CPC und Joyce-Diskettenstationen an MS-DOS- 

Rechnern, mit Anleitung für 360 KB und 720 KB DM 35, - 

Preise zzgl Porto u. Verpackung, Versand per Nachnahme. Liste kostenlos 

Krebs electronic 

Datentechnik - Computer - Hardware u. Software 

6751 Weilerbach, Tel. 0 6 3 74 - 68 78_ 



Göddeker Computer und Zubehör GmbH 

Herstellung • Import • Export • Großhandel 

Höftestraße32 D-4400 Münster 24 Telefon 0251/619881 • Telex 892 160 



PEGASYS Codata AT-80286 Turbo ■ Universaldatei 


0O286-12CPU, 8/12 MH* mH O-waitstate. 
8 Slockpiatro für Erwotlorungon v©rh«ndon, 
8D287-Coproze59or-Si©ckpiau: vorhanden, 
batteriegepufforte Echtzmluhr. 1,0 MByte 
RAM (erweiterter tue 4.0 MByte). Mono- 
graphic-Card (Markules-komp.). FD/HD- 
ComroBof. 1.2 MByto/5.25-Di>koltflnlaufwerk. 
20-M8ytfl-Fo«t^t!o. 200 WtBt-NeWo.l, d«ut- 
sch« DIN-Tastatur mit aögoftotztom Cursor- 
block ru»oo- und Reset-Taste. i4*-Mono- 
chrom-Monilor (borste-nlmbige Anzeige) Im 
modomon Flath Design, MS-DOS 130. GW 
Bas c und Inklusive Maus 




CPC-464 2 B-Software 49.90 

(nur auf .V-DiBkotto). Komplohprogramm mit folgenden Emzclpro- 
grammen Adressenverwaitung. Videodatei. MuB.karchiv und als 
Bonus ein« Voremsvorwallung mit Luatschriftausdruck. D»o Pro 
gramme sind a : »e n Deutsch und über e ne BedieneHütwung im 
MenüMil anzuw&hien Deutsche Umlaute (i.ü.6.8) sind selbstver 
sliixflich 


1 Disketten 

3.0’ 

10 Sl 100 Sl 

PEGASYS CF 2 

55,- 500 - 

PSGASYSCF-2-0D 

85.- rso,- 

3.5* 

10 St ICO St 

Neutrale MF-1-00 

28. - 2.5.- 

Neutrale MF-2-00 

29.- 2Ö0 

5,25* 

io s: 100 Si 

Neutrale MD-2-0 

7,99 75.- 

| Zubehör 


DIskettenbOKon 15,90 

PEGASYS YA-3580-1 mH ScMo« und Ersatzschlüssel für 60 Stück 
35' oder 3‘- Ckskotten 

Monitoren oder 25.- 

PEGASYS MS-14 für nll« Monitor» bis 14*. M<1 FesiBteilschroube, 

droh- und schwenkbar. 


Alle Preise sind unverbindlich Oer Vorsand «rlolgt per Nachnahme oder VorttasBO por Euroscheck zuzüglich Veraandkoslen 
Techfi.scho Änderungen be« nden Anikeln Vorbehalten 


5’89 PC 53 






I—Tips & Tricks 


I need more Input 

Fehler abgefangen 

Erst vor kurzem wurde Ihnen eine vom BASIC aus er¬ 
zeugte ER WEITERTE-INPUT-Routine vorgestellt. Al¬ 
lerdings war die Routine nicht so leicht zu bedienen und 
hatte aus Speicherplatzgründen keine Fehlerahfangrou- 
tine. Insbesondere beim Löschen von Zeichen innerhalb 
eines Strings waren längere Ausführungszeiten nicht zu 
vermeiden. Hier nun die schnellere Alternative in Ma¬ 
schinencode mit einigen weiteren Features. 

Die Vorteile der MC-Routine liegen auf der Hand: 

1. Weniger Speicherplatzbedarf 

2. Aufruf durch einen komfortablen RSX-Befehl 

3. Schnellere Abarbeitung 

4. Eine Fehlerabfangroutine, welche in BASIC per ON 
ERROR GOTO problemlos weiterverarbeitet werden kann 
und zwar bei allen drei CPCs. Somit kann diese Erweiterung 
schon fast als echter BASIC-Befehl bezeichnet werden. 

Syntax 

Für den Aufruf der Routine — nach der Initialisierung mit 
CALL &A000 - gibt es zwei Möglichkeiten: 

1. | INPUT,@name$ 

name$ repräsentiert hierbei irgendeine String variable. An 
der aktuellen Cursorposition des WINDOW#0 wird die 
Eingabe erwartet. 

2. | INPUT,Status,stream,@name$ 

Status — Der Wert ist bitsignifikant. Durch verschiedene 
Konstellationen der ersten vier Bytes werden verschiedene 
Eingaben möglich. Folgende Werte sind zugelassen: 

0 = Standard für normale Eingabe 

1 = Invertierte Eingabe 

2 = Geheime Eingabe, ohne das irgend etwas akustisch mit¬ 
geteilt wird oder eine Bildschirmausgabe erfolgt. 

3 = Ebenfalls geheime Eingabe. Allerdings ist die maximale 
Stringlänge invertiert zu erkennen. 

4 = Geheime Eingabe mit Cursordarstellung. 

5 = wie 4, jedoch invertiert. 

stream - Mögliche Werte von 0 bis 7. Alle Bildschirmfenster 
sind daher ansprechbar. Eine Aufnahme von Strings von der 
Diskette ist hier allerdings nicht möglich. 


&:rs»i ist ?!M Jmo fuCT d» IWWI 

Sitt« i«>w Si* zuMKbst Dir« Ibwn ein : 

•ist Sit srttn, mt die ImjjJii auf 12 ZticwiötscwäwSt j*I wir: *” 

S« Klm jjtho, nun jtbto Sit m! Dar Älter an ■ 

Bis hat ji mm ktintf jtsthtn. dwn Bit Einstbt mr jthtm nt -ursir 
»ff ts Jrtt tudi 9thtm okit Ccw und olmt Inwtitrmj 

Men Sie jetzt Ml Ihren Beruf tin : 

EinBeutit ' Ei u»r utbtrkaupt nichts zu »rkirnen. 

Zufoterletzt jehen Sie bitte Ihr noiutlichts Einknnntn ein 1300 

flüUEUB 

Wall« Klaus Jatho 

Herrlichen Slaeckwnseh. Hit 2S jthotren Sii zu einen suten Jahr^ne .35: 

ülltrdinjs dtr Beruf Fotojraf, Hem. das ist ja 3r»uenv«l: 

Äer endlich ueiss ick aas W uwdunst -jarden- b«k«»s: 

Sem EifikonnM uen 2m80 DN - das neide ich dw fiMiuant 
Readü 


Durch das Demoprogramm wird die Nützlichkeit verdeutlicht. 
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Besonderheiten 

In dem MC wurde der Teil des BASIC-Interpreters, welcher 
für die Fehlermeldungen zuständig ist, mit berücksichtigt. 
Das bedeutet, daß bei falschen Eingaben ganz normale Feh¬ 
lermeldungen über #0 ausgegeben werden und mit einer 
normalen ON ERROR GOTO Anweisung weiterverarbeitet 
werden können. 

Mögliche Fehlermeldungen: 

TYPE MISMATCH. Als Stringvariablenadresse wurde statt 
eines Zwei-Byte-Wertes nur ein Ein-Byte-Wert (0-255) 
übergeben. Eine weitere Berücksichtigung war aufgrund der 
Übergabeform eines Strings nicht möglich. 

OPERAND MISSING. Es wurde eine falsche Parameteran¬ 
zahl übergeben. Entweder Sie übergeben nur die String¬ 
adresse oder alle drei Parameter. Alles andere führt zu einer 
Fehlermeldung. 

IMPROPER ARGUMENT. Es wurden mehr als drei Para¬ 
meter übergeben, oder einer der übergebenen Parameter ist 
zu groß beziehungsweise zu klein. Oder der übergebene 
String wurde vor Aufruf nicht eingerichtet beziehungsweise 
hat die Länge 0 oder >250. Aus internen Verarbeitungs¬ 
gründen war es nicht mehr möglich, längere Strings zuzulas¬ 
sen. Allerdings reicht eine maximale Länge von 250 Zeichen 
wohl vollkommen aus. Übrigens: Nach Fehlermeldungen ist 
mit den übergebenen Daten noch nichts passiert. 

Übergabe der Stringvariablen 

Ein wesentlicher Punkt dieses Input ist es, die Anzahl der 
einzugebenden Zeichen zu beschränken. Beim normalen In¬ 
put oder Line Input ist es ja bekanntlich möglich, immer 255 
Zeichen zu übergeben. Nehmen wir einmal an, Sie möchten 
eine Namenstabelle einrichten, und jeder einzugebende 
Name sollte nicht mehr als zehn Zeichen beeinhalten, so 
richten Sie den Übergabestring mit SPACE$(10) ein. Hier¬ 
durch wird der Routine bei Übergabe mitgeteilt, daß die Ein¬ 
gabe nicht länger als zehn Zeichen sein darf. Weniger Zei¬ 
chen können Sie natürlich eingeben. Der String wird am 
Ende dann auch auf diese Länge reduziert. Alle Steuerzei¬ 
chen durch CTRL+TASTE werden nicht nur in den String 
übernommen, sondern auch dargestellt. Dadurch hat die 
Routine große Ähnlichkeit mit dem LINE INPUT des 
BASIC. Nach Beendigung der Eingabe wird kein Carriage- 
Return durchgeführt. Hierfür müssen Sie schon selbst Sorge 
tragen. (Man braucht ja nicht immer ein CR — oder?) 

Die Tastaturbelegung 

ist ähnlich wie beim normalen Input oder Line Input. 
CTRL+TASTE übernehmen Steuerzeichen in den String. 
Cursortasten bewegen den Cursor auf den String, allerdings 
nur rechts und links. CTRL+TAB schaltet zwischen 
Einfüge- und Überschreibemodus hin und her. Standard ist 
der Einfügemodus. DEL löscht das Zeichen unter dem Cur¬ 
sor. Reststring rückt auf. CLR löscht den ganzen String. Ein¬ 
gabe von vorn, RET/ENTER beendet die Eingabe. 
CTRL + Cursortasten bewegen den Cursor an den Anfang 
beziehungsweise an das Ende des Strings. Ist die maximale 
Länge einer Eingabe erreicht, kann kein Zeichen mehr über¬ 
nommen beziehungsweise überschrieben werden. Sie müs¬ 
sen erst ein Zeichen mit DEL löschen. Übrigens wird die 
Länge eines Strings nach Eingabeabschluß aktualisiert. Bei 
Nichterreichen der maximalen Länge wird entsprechend ge¬ 
kürzt. Folglich ist es möglich, auch Leerstrings einzugeben. 





Nach Abtippen des BASIC-Laders speichern Sie diesen si¬ 
cherheitshalber erst ab und starten dann. Es wird selbsttätig 
das Binärfile “EINGABE.BIN“ abgespeichert. Sie können 
den neuen Befehl dann folgendermaßen benutzen: 


10 IF PEEK(8cA000)=0 THEN MEMORY &9ffF: 

LOAD“eingabe .bin“:CALL &A000 

Danach steht Ihnen der Befehl | INPUT zur Verfügung. Als 
letztes finden Sie ein Demo-Programm, das Ihnen Beispiele 
einer Anwendung vorführt. 

(HolgerSchäkel/cd) 
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10 '*********************«********«******* [1543] 

20 '* EINGABE.DAT - DATA-Lader von 'CPC' * [2924] 
30 '***«**«***************•»************** [1543] 

40 * [117] 

50 DATA AOOO,21 ,19,AO,01,OF,AO,CD,01,0163 [ 1579 ] 

60 DATA A008,BC,3E,C9,32.00.AO,C9,13,4861 [1582] 

70 DATA A010,A0,18,0A,49,4E,50,55,D4,5O9E [2172] 

80 DATA A018,00,00,00,00.00,ED,73.D7.0385 (2011) 

90 DATA A020,A2,21,0B,A2,36,00,23,36,4900 [1232] 

100 DATA A028,01,23,36,01,23,36,00,23,0F73 [1090] 
110 DATA A030,36,01,FE,01,CA,DA,AO,FE,0016 [2796] 
120 DATA A038,03,CA,E1,A0,D2,97,A2,DA,2072 [2156] 
130 DATA A040,8F,A2,7A,87,CA,93,A2,1A,6E72 [1995] 
140 DATA A048,FE,FB,D2,97,A2,EB,22,09,5401 [1485] 
150 DATA A050,A2,47,B7,CA,97,A2,36,00,5CDC [1367] 
160 DATA A058,23,5E,23,56,EB,58,3E,3F,017B [1614] 
170 DATA A060,CD,5A,BB,3E,08,CD,5A,BB,67FB [2265] 
180 DATA A068,18,05,3E,07,CD,5A,BB,CD,0C4B [2130] 
190 DATA A070,81,BB,CD,06,BB,CD,84,BB,70DF [2490] 
200 DATA A076,FE,0D,CA.44,A1,FE,7F,CA,6784 [1681] 
210 DATA A080,B2,Al,FE,10,CA,54,Al.FE,693C [1798] 
220 DATA A088,El,CA,OF,A2,FE,F3,CA,9A,4CF2 [1954] 
230 DATA A090,Al,FE,F2,CA,85,Al,FE,FB,7A4B [2779] 
240 DATA A098,CA,56,A2,FE,FA,CA,73.A2,6F9C [1134] 
250 DATA A0A0,FE,09,28,C8,57,97,B8,28,754C [2094] 
260 DATA A0A8,CI,3A,DC,A2,4F,3A,DD.A2,7C28 [1757] 

270 DATA AOBO,B9,C2,1A,A2,05,3C,32,DD,6501 [1793] 
280 DATA A0B8,A2,3A,DC,A2,3C,32,DC,A2,4E12 [2654] 
290 DATA AOCO,72,3A,DF.A2,B7,7A,20,02,2252 [1849] 
300 DATA A0C8,3E,20,E5,C5,D5,CD,5D,BB,026D [1858] 
310 DATA A0D0,D1,C1,E1,23,97,B8,28,92,404A [438] 
320 DATA A0D8,18,95,97,C0,B4,BB.C3,42,31F8 [2359] 
330 OATA A0E0,A0,D0,7E,03,DD,86,05,B7,6CFD [1988] 
340 DATA A0E8,C2,97,A2,DD,7E,02,FE,08,5F5C [2302] 
350 DATA AOFO,02,97,A2,CD,B4,BB,DD,7E,52D8 [1568] 
360 DATA A0F8,04,FE,06,D2,97,A2,F5,CB,3771 [1835] 
370 DATA A100.47.C4,1E.A1,F1.F5,CB,4F,1ED5 [1594] 
380 DATA A108,C4,39,Al,Fl,CB,57,C4,14,71E8 [1384] 

390 DATA A110,Al,C3,42,A0,3E,O6,CD,5A,6228 [1312] 
400 DATA A118,BB,97,32,DF,A2,C9, 1A,4 7, 75B7 [ 2243] 
410 DATA A120,3E,18,32,DB,A2,CD,5A,BB,14DB [2137] 
420 DATA A128,3E,20,C0,5A,BB,10.FB,1A.0F74 [2431] 
430 DATA A130,47,3E,08,CD,5A,BB,10,FB,2137 [1484] 
440 DATA A138.C9,3E,07,CD,5A,BB,3E,15,6765 [1599] 
450 DATA A140.CD,5A,BB.C9,2A,D9,A2,7B,68FB [2758] 
460 DATA A148,90,77,3A,DB,A2,B7,C4,01,59A5 [1362] 
470 DATA A150,A2,C3,C7,A2,3A,DC,A2,FE,701A [2067] 
480 DATA A158,01,28,0 a, 47,05,3E,08,CD,0F8D [2094] 
490 DATA A160,5A,BB,2B,10,FA,E5,3E,20,03B8 [2032] 
500 DATA A168,43,77,23,CD,5A,BB,10,F9,3415 [1945] 
510 DATA A170,43,E1,3E,08,CD,5A,BB,10,18E6 [1016] 
520 DATA A178,FB,3E,01,43,32,DC,A2,32,7586 [ 1702] 
530 DATA A180,DD,A2,C3,5E,A0,3A,DC,A2,5F72 [1222] 
540 DATA A188,FE,01,CA,6A,AO,30,32,DC,65EC [2382] 
550 DATA A190.A2,3E,08,CD,5A,BB,2B.C3,53F9 [1662] 
560 OATA A198,6F,A0,3A,DD,A2,57,3A,DC,11F4 [2150] 
570 DATA A1A0,A2,BA,CA,6A,A0,3C,32,DC,6528 [2412] 
580 DATA A1A8.A2,3E.09,CD,5A,BB,23,C3,53C9 [2289] 
590 DATA A1B0,6F,A0,3A,DC,A2,3D,BB,CA,1158 [2326] 
600 DATA A1B8,6A,AO,3C,4F,3A,DO,A2.B9,1D29 [2731] 
610 DATA A1C0,CA,6A,AO,3D,32,DD,A2,91,6B61 [2006] 
620 DATA A1C8,B7,28,35,E5,C5,47,C5,E5,5F2B [2059] 
630 DATA A1D0.23,7E,36,20,El,77,23,57,0C05 [1481] 

640 DATA A1D8,3A,0F,A2,B7,7A,20,02,3E,369A [2307] 
650 DATA A1E0,20,E5,C5,D5,CD,5D,BB,D1,3A0B [1518] 
660 DATA A1E8.C1,E1, 10,E3,3 E,2 0,CD,5A,5440 [ 1869] 
670 DATA A1FO,BB,C1,04,3E,08.C0.5A,BB,6DDB [1811] 
680 DATA A1F8,10,FB,CI,El,04,C3,6F,AO,23A2 [2119] 
690 DATA A200,3E,20,77,CD,5A,BB.3E,OB,1578 [1388] 
700 DATA A208,CD,5A,B8,04,C3,6F,A0,3A,61FE [1900] 
710 DATA A210,DE,A2,E E,01,32,DE.A2,C3,593F [2031] 
720 DATA A218,6A,A0,4F,3A,DE,A2,B7,C2,1294 [2746] 
730 DATA A220.B9.A0,79,E5,D5,F5,48,3E,7022 [1048] 
740 DATA A228,09,CD,5A,BB,3A,DC,A2,47,3493 [930] 
750 DATA A230,3A,DD,A2,90,47,C5,7E.23.36F3 [1629] 
760 DATA A238,56,77,E5,D5,C5,CD,50,BB,2220 [2033] 
770 DATA A240.C1,Dl,El, 7A,10,Fl ,C1,04,4D82 [ 1094 ] 
780 DATA A248,3E,08,CD,5A,BB,10,FB,41,052F [2484] 
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790 DATA A250,Fl,Dl,E1,C3,B4,A0,3A,DC,5B58 [2545] 
800 DATA A258,A2,4F,3A,DD,A2,B9.CA,6A,4E5A [2833] 
810 DATA A260,A0,32,DC,A2,91,48,47,3E,4838 [1621] 
820 DATA A268,09,C0,5A,BB,23,10,FA,41,37DD [2177] 
830 DATA A270,C3,6F,A0,3A 1 DC,A2,FE,01,6875 [2491] 
840 DATA A278.CA,6A,AO,30,50,47,3E,08,6BB8 [1401] 
850 DATA A280,C0,5A,BB,2B,10,FA,42,3E,6602 [1697] 
860 DATA A288,01,32,DC,A2,C3,6F,AO,IE,1B5A [2053] 
870 DATA A290,16,18,06,1E.0D,18,02,1E.0C32 [1588] 
880 DATA A298,05,3E,06,C0,5A,BB,3A.DB,0183 [2212] 
890 DATA A2A0,A2,B7,C4,Dl,A2,97,CD,B4,6F32 [607] 
900 DATA A2A8,BB,CD,15,B9,7C,21,C4,A2,65BE [1552] 
910 DATA A2B0,FE,02,28,OC,87,20,07,36,7F40 [1464] 
920 DATA A2B8.94,23,36,CA,18,02,36,58.485C [1965] 
930 OATA A2C0,7B,DF,C4,A2,55,CB,FD,3E,18A0 [1395] 
940 DATA A2C8,06,CD,5A,BB,ED,7B,D7,A2,3738 [2365] 
950 DATA A2D0.C9,3E.18,CD,5A.BB,C9,00.657E [1832] 
960 DATA A208,00,00,00,00,00,00,00,00,0000 [1044] 


970 DATA »ENDE* [502] 

980 adr=&AOOO:zelle=SO:MEMORY adr-1 [1876] 

990 READ d$ : IF d$="*ENDE*"THEN 1100 [ 1268] 

1000 pr=0 [117] 

1010 FOR 1=1 TO 8 [462] 

1020 READ a$:a = VAL(’‘&" + a$) [883] 

1030 POKE adr,a:adr=adr+l [717] 

1040 pr=pr*2:IF pr>65535 THEN pr=pr-65535 [2485] 

1050 pr=UNT(pr)XOR a:IF pr<0 THEN pr=pr+65 [1890] 
536 

1060 NEXT 1 [375] 

1070 READ pr$:pr2=VAL("&"+pr$):IF pr2<0 TH [2610] 
EN pr2=pr2+65536 

1080 IF p r < > p r 2 THEN PRI NT"Pruefsummenfeh1 [3615] 
er ln Ze11e " ; ze11e:STOP 

1090 zei1e=ze11e+10:GOTO 990 [1986] 

1100 SAVE"EINGABE.BIN",B,&AOOO,&2DF [1845] 

1110 PRINT d$:END [346] 


10 ' Oemoprogramm fuer !INPUT,status,strea [3135] 
m,8name* 

20 ' [117] 

30 IF PEEK(&AOOO) = 0 THEN MEMORY &9FFF:LOAD [4801 ] 
"e1ngabe.bln":CALL &AOOO 

40 MODE 2:PRINT:PRINT"Dieses Ist eine Demo [3931] 
fuer den Befehl !INPUT" 

50 PRINT:PRINT"Bltte geben Sie zunaechst I [7986] 
hren Namen ein : ";:name$=SPACES(12):IINPU 
T,1,0,Uname* 

60 PRINT:PRINT"W1e Sie sehen, war die Eing [6801] 
abe auf 12 Zeichen beschraenkt und invertl 
e rt" 

70 PRINT:PRINT"So ";name$;", nun geben Sie [5040] 
mal Ihr Alter an : ";:alter$=" ”:!INPUT 
, 5,0,@a1te r* 

80 PRINT:PRINT"Das hat ja nun keiner geseh [17018] 
en, denn die Eingabe war geheim mit Cursor 
:PRINT”Abe r es geht auch geheim ohne Curs 
or und ohne Inver11erung":PRINT:PRINT"Gebe 
n Sie jetzt mal Ihren Beruf ein ";:beruf 
$=SPACE$(50):!INPUT,2,0,@beruf$ 

90 PRINT:PRINT"Eindeutig ! Es war ueberhau [4927] 
pt nichts zu erkennen." 

100 PRINT:PRINT"Zuguter1etzt geben Sie blt [7346] 
te Ihr monatliches Einkommen ein : ";:eink 
ommen$=SPACE$<6):!INPUT,@einkommen* 

110 PRINT:PRINT:PRINT CHR$(24)" Auswertung [4120] 

: "CHR$(24):PRINT 

120 PRINT"Hai 1o ";name$:a1ter = VAL(alter$) [ 2258] 
130 IF a1te r < 5 THEN PRINf'lch glaube kaum. [5813] 
dass Ihre Altersangabe mit ";alter$;" sti 
mmt.":GOTO 160 

140 IF alter>100 THEN PRINT"Na, na, na, na [7236] 

. Die Altersangabe mit ";alter$;" Ist wohl 
ein bisschen gef 1 unkertGOTO 160 
150 PRINT"Herz1ichen Glueckwunsch. Mit ";a [8711] 
lter$;" gehoeren Sie zu einem guten Jahrga 
ng" ; 1988-alter 

160 PRINT:PRINT"Al1erdings der Beruf ";ber [5942] 
uf$;". Nein, das ist ja grauenvoll." 

170 PRINT:PRINT"Aber endlich welss ich, wa [12141] 
s DU verdienst -pardon- bekommst.":PRINT"D 
ein Einkommen von e1nkommen*00 OM - d 

as melde ich dem Finanzamt.' 
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I—Tips & Tricks 


Byte für Byte 
ein Sprite 

UNI-RSX hilft Sprites 
erzeugen 

Mit diesem tollen Programm wird es möglich, Sprites in 
einer schnellen Abfolge auf dem Bildschirm erscheinen 
zu lassen. Des weiteren ist es möglich, die definierten 
Grafiken vor und hinter dem Hintergrund bewegen zu 
lassen. Eine Utility, welche in keiner Sammlung fehlen 
sollte. 

Grundsätzliches: Bei allen Befehlen, die einen Wert zurück¬ 
geben, ist der 'Klammeraffe’ mit anzugeben. Es werden nur 
Integerwerte verarbeitet. Parameter in eckigen Klammern 
können mit angegeben werden. Wie bei RSX-Befehlen üb¬ 
lich, beginnen diese mit dem Zeichen unter der Tastenkom¬ 
bination ’SHIFT & Klammeraffe’ (senkrechter Strich). 

Die allgemeinen Befehle, Funktionen 
und Beispiele 

1. )| DPOKE,adresse,wert%: 

Dieser Befehl ’poked’ in zwei hintereinanderfolgenden Spei¬ 
cheradressen einen 16 Bit- (oder Zwei-Byte-) Wert, hier ein 
Beispiel: 

| DP OKE, & C000,1234 

Nach der Ausführung befindet sich der Wert 210 in Speicher¬ 
adresse &COOO, der Wert 4 in &C001. Kurzes Nachrechnen: 
4 (Inhalt &C001) * 256 (da Highbyte) +210 (Lowbyte) = 
4*256+210= 1234. Stimmt! 

2. ) | DPEEK,adresse,@wert%: 

Das Gegenteil von | DPOKE. Hier wird der Inhalt der bei¬ 
den nacheinander stehenden Adressen ab ’adresse' in die Va¬ 
riable ’wert% ’ geschrieben. Diese Variable muß vorher defi¬ 
niert werden. Auch hierzu ein Beispiel: 

Wir wollen unseren Wert wieder aus dem Adressenpaar 
&C000/ &C001 auslesen, deshalb geben wir ein: 
wert% = 0:\ DPEEK, & C000,@wert %:PRINT wert % 

Nach Betätigen der RETURN- oder ENTER-Taste sehen wir 
unsere Zahl 1234 wieder auf dem Bildschirm. Kurze Erklä¬ 
rung zur Zeile: wert% = 0 definiert unsere benötigte Integer¬ 
variable, | DPEEK,&C000,@wert% liest die Adressen 
&C000+1 (also &C001), und &C000 aus, berechnet den 
Wert nach obiger Formel und übergibt das Ergebnis der Va¬ 
riablen ’wert%’. 

3. ) | FILLB,startadresse,anzahl,byte (0-255): 

Füllt einen Speicherbereich mit dem Inhalt der Variablen 
“Byte“. Beispiel: ] FILLB,&C000.&4000,255, der Bildspei¬ 
cher wird mit dem Wert 255 gefüllt. 

4. )| COPYB,startadresse,zieladresse,anzahl: 

Kopiert einen Speicherbereich von der Anfangsadresse 
’startadresse' zur neuen Adresse ’zieladresse’. Dazu auch ein 
Beispiel: 

| COPYB,& C000,&4000,&4000 



kopiert den Standardbildspeicher (&C000) an die Adresse 
&4000, mit einer Länge von &4000 Bytes. Die Adressen 
dürfen sich NICHT überschneiden. 

5. ) | PAGE,0oder| PAGE,1: 

Schaltet zwischen zwei Bildspeichern hin und her. Page 0 
liegt an der Adresse &C000 (Standard), und Page 1 liegt an 
der Adresse &4000. 

6. ) | WAIT[,ascii]: 

Geben Sie den Befehl ohne Parameter ein, wartet der CPC 
auf einen beliebigen Tastendruck, wogegen der Befehl mit 
Parameter (0-255) auf ein ASCII-Zeichen von der Tastatur 
wartet. Beispiel: | WAIT,16 wartet, bis die Taste ’CLR' ge¬ 
drückt wird. 

Sprite-Befehle 

Grundsätzliches: Die Sprite-Befehle benötigen mindestens 
zwei Parameter. Das Grafik-Koordinatensystem bleibt in al¬ 
len Modi gleich, das heißt, in X- Richtung 0 bis 640 Pixel 
und in Y- Richtung 0 bis 400 Pixel. Die X- Koordinate muß 
in MODE 0 durch 2, in MODE 1 durch 4, und in MODE 2 
durch 8 dividierbar sein. Ein in MODE 1 erstelltes Sprite läßt 
sich NICHT einwandfrei in den anderen Modi darstellen, 
gleiches gilt für die anderen Modi. 

7. ) | SET,x%,y% 

Dieser Befehl setzt ein definiertes Sprite in den Bildspeicher. 
Sind die Koordinaten größer als die Grafik-Fenstergrenzen, 
so erscheint das Sprite an der gegenüberliegenden Seite. 
Dazu das Beispiel: 

| SET,320,200 

setzt ein Sprite in die Bildschirmmitte. 

8. )| GET,x%,y%[,@breite%,@höhe%,@adresse%] 

Liest ein definiertes Rechteck vom Bildschirm, und legt die 
Daten ab “adresse%“ ab. Werden fünf Parameter angege¬ 
ben, so werden diese mit dem Befehl | DEF...., eingestellten 
Wert zurückgeliefert. 

9. ) | DEF,niodus,breite,höhe,adresse 

Definiert ein Sprite. Mit dem ersten Parameter kann die Ver¬ 
knüpfung mit den Bildschirmdaten gewählt werden, wobei 
folgende Parameterwerte eingestellt werden können: 
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CPC Software für alle Fälle 


-iFantastic Four_ 

vier Super-Programme zum kleinen Preis 

Die neue CPC-Spielebox enthält vier ausgesuchte TOP-Programme der Spitzenklasse. Da ist für jeden das richtige dabei! 


COCKAIGNE 

- ist ein echtes Weltraum-Actionspiel mit 
allem, was zu dieser Art von Software ge¬ 
hört. Die Erde kann das immer größer wer¬ 
dende Ozonloch nicht mehr verkraften, die 
Expedition COCKAIGNE soll in fernen Ga¬ 
laxien neue Lebensräume erkunden. Als 
Leiter dieser Expedition haben Sie alle 
Hände voll zu tun... 

TERRANAUTI 

- deutsches Science-Fiction-Adventure 
mit hervorragender Grafik. Vor 50 Jahren 
startete das letzte Generationen-Raum- 


schiff TERRA von der Erde, um das Plane¬ 
tensystem Sirius zu kolonisieren. Durch 
eine kosmische Katastrophe verschwand 
die TERRA spurlos. Erst Jahre später fing 
eine Hyperfunkstation einen Funkspruch 
auf - die TERRA wurde in eine andere 
Galaxis katapultiert! Übernehmen Sie die 
Rolle des Commanders von Thaifun, dem 
ersten Galaxienkreuzer, und begeben Sie 
sich auf die Suche nach dem Raumschiff 
TERRA. 

FRUITS 

- Als Bauernsohn Frank jun. ist es Ihre 


Aufgabe, die Ernte der Felder einzufahren. 
Bei Ihrem Vorhaben werden Sie allerdings 
von den "bösen Nasen“ am Gelingen ge¬ 
hindert, zudem sind einige Feldfrüchte 
ziemlich ungesund. Fruits ist ein Ge- 
schicklichkeits- und Actionspiel der Extra¬ 
klasse, besitzt eine ausgefeilte Grafik und 
gewährt lange Spielfreude. 

TERRANAUT II 

- die Überlebenden. Nachdem Sie den 
ersten Teil gut überstanden haben, kommt 
sogleich die nächste Aufgabe auf Sie zu. 
Sie haben den Planeten gefunden, auf 


dem das vermißte Raumschiff TERRA ge¬ 
strandet ist. Nun gilt es, nach etwaigen 
Überlebenden der Katastrophe zu for¬ 
schen. Terranaut II ist ein deutsches Text- 
adventure mit vielen interessanten Featu¬ 
res und einer spannenden Story. 



Damit das Schreiben 
wieder Spaß macht 
Der Klassiker: 

Context CPC - bis heute ungeschlagen in der Gruppe der Textverarbeitungen. Dieses Pro¬ 
gramm besticht vor allem durch seine leichte Anwendungsart, die selbst unerfahrenen Com¬ 
puterbesitzern den Umgang mit einer Textverarbeitung möglich macht. 

Context CPC - das heißt: 

Einfachste Bedienung durch logische Tastaturbelegung; alle Funktionen sind über die 
CONTROL- und eine definierte Taste zu erreichen. 

Funktionen wie EINFÜGEN. FLIESSTEXT. BLOCKFORMATIERUNG und ZEILEN KOPIEREN 
sind über Tastendruck aufrufbar und werden in einer Statuszeile angezeigt. 

Mehrspaltiges Schreiben und Textkopieren erleichtert Ihnen das Erstellen Ihrer Korrespondenz. 
25 KByte Textspeicher mit insgesamt 5 DIN-A4-Seiten, damit Sie auch lange Briefe problem¬ 
los erstellen können. 

Voreingestellt für die meisten CENTRONICS- Drucker, durch übersichtliche Tabellenprogram¬ 
mierung anpaßbar an viele EPSON- kompatible Drucker. 

Weiterschreiben während des Drückens, denn 'Time is Money'. 


ConText ftp 


Autor: Matthias Uphoff 


Darstellung von Sonderschriften wie VERGRÖSSERN und UNTERSTREICHEN, Anzeigen von 
anderen Schriftarten durch Steuerzeichen, denn Sie wollen ja sehen, was Sie drucken. 

Auf Diskette / Kassette gespeicherte Textbausteine sind überall im Text plazierbar. das erspart 
doppelte Schreibarbeit. 

Eingebauter Taschenrechner und Kalender, damit Sie den Überblick behalten. 

Dies sind nur einige der vielen Möglichkeiten, die Context Ihnen als Textverarbeitung bietet. 

Der benötigte Hardware-Aufwand ist gering. 

Sie brauchen nur einen CPC 464 / 664 oder 6128 und einen Drucker. Alles andere erklärt Ih¬ 
nen die ausführliche deutsche Bedienungsanleitung, welche dem Programm beiliegt. 

Und wo gibt's Context CPC ? 

Bei DMV zu bestellen als 

3“-Diskette (Best.-Nr. 207) 

Kassette (Best.-Nr. 206) 



59,- DM* 
49,- DM* 





kann eine unbegrenzte Anzahl von 
Fragen und Antworten verwalten • 
hat ständig ca. 400 Fragen plus Ant¬ 
worten im Speicher • bietet die Mög¬ 
lichkeit, eigene Fragen einzugeben, 
und zwar mit einem komfortablen 
Editor • besitzt eine Supergrafik mit 
Window-Technik • ist vollkommen 
menuegesteuert • zeigt bis jetzt 
noch nie dagewesene Tricks mit dem 
Videocontroller • stellt zu jeder Fra¬ 
ge 5 mögliche Antworten vor • kann 
man mit der ganzen Familie spielen, 
da jeder eine Mindest-Chance von 
1-5 hat • muß man mit Strategie 
spielen, da der Beste in jedem Wis¬ 


sensgebiet am Ende noch Zusatz¬ 
punkte bekommt • wurde mit äußerst 
schnellen Suchroutinen ausgestat¬ 
tet, die verhindern, daß eine schon 
richtig beantwortete Frage nochmals 
erscheint ■ ist spielbar mit 1-4 Ein¬ 
zelspielern oder in Gruppen mit ei¬ 
nem Vielfachen davon • erkennt au¬ 
tomatisch, welche Fragenblöcke auf 
der Diskette noch unbeantwortet sind 
• zeichnet sich nicht nur durch die 
o.g. Punkte als höchst zukunftssi¬ 
cher aus! 

für CPC 464 • 664 • 6128. N A / 
3“ Diskette VV 

Best.-Nr. 106 ^29,- DM* 


CYRUS II SCHACH 

Das bewährte Pro¬ 
gramm für CPC’s 

Wahlweise 3D oder 2D Display, ein¬ 
stellbare Spielstärke und viele weitere 
Extra-Features (mit deutscher Bedie¬ 
nungsanleitung). 

zum Sonderpreis v l 

Kassette Best.-Nr. 13(K 12,95 DM* 


STARTEST!— 

Action-Adventure für alle CPC’s 
Kassette 
Best.-Nr. 103 
Diskette 3“ 

Best.-Nr. 104 


CPC Power-Splele-Paket 

18 tolle Spiele für Ihren CPC 464,664 
oder 6128 

4 Disketten 3“ 

Best.-Nr. 102 






* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- 


(unverbindlich8 Preisempfehlung) 


— Bitte benutzen Sie die Bestellkarte — 


DM Porto und Verpackung 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 






I Tips & Tricks 


o = FORCE 

1 = XOR 

2 = AND 

3 = OR 

Andere Werte ergeben eine Fehlermeldung. Der zweite Pa¬ 
rameter gibt die Breite in Bytes an. Die Anzahl der Pixel ist 
vom Modus abhängig. So beträgt die Anzahl der Pixel bei ei¬ 
ner Breite von 1 in Mode 2 acht Pixel, in Mode 1 vier Pixel 
und in Mode 0 zwei Pixel. Beim dritten Parameter wird die 
Höhe in Pixel angegeben. Die tatsächliche Anzahl beträgt 
immer die Hälfte des eingestellten Wertes. Und der letzte Pa¬ 
rameter schließlich gibt die Variable 'adresse’ (die Speicher¬ 
stelle) an, ab der die Daten gelesen (mit SET) beziehungs¬ 
weise geschrieben (GET) werden. Die Anzahl der Daten er¬ 
rechnet sich aus der Formel: breite*höhe. Beispiel: 

MODE! :MOVEl,16,1 

(Beim CPC 464 muß der letzte Wert (,1) weggelassen 
werden) 

PRINTCHR$(5)“X“;:\ GET,1,16 

Kurze Erklärung zu den Programmzeilen: Zuerst wird der 
Bildschirm auf Mode 1 gesetzt. Der Grafikcursor an die Po¬ 
sition x:l, y: 16 bringen und den Buchstaben ’X’ auf dem 
Bildschirm ausgeben. Der Inhalt des Rechteckes unten/links 


wird ab Adresse ’adresse’ abgelegt, und kann mit dem Befehl 
SET wieder auf den Bildschirm gebracht werden. 

Noch zwei Erklärungen zu Punkt 7 und 8: 

Zu 7.) Wird der SET-Befehl verwendet, so geschieht folgen¬ 
des: Zuerst wird die alte Bildschirmadresse geholt, diese 
steht in den Adressen &A22D und &A22C, und der ab 
Adresse &A231 gespeicherte Hintergrund wird ausgegeben. 
Dann wird die neue Bildschirmadresse für den nächsten Auf¬ 
ruf gespeichert. Jetzt wird an dieser Adresse der Hintergrund 
eingelesen und ab Adresse &A231 abgelegt, dann ein Byte 
aus der Spritedatenadresse geholt, mit dem eingestellten Mo¬ 
dus verknüpft und endlich ins Bild gebracht. Das Ganze geht 
solange, bis die maximale Breite und Höhe erreicht ist. 

Zu 8.) Die Voreinstellungen betragen in der Breite vier Pi¬ 
xel, in der Höhe sechzehn Pixel. Und “adresse“ steht auf 
&9000. Das reicht für zirka 255 Sprites. Den gewählten 
Speicherbereich für die Sprites sollte man mit MEMORY 
adresse-1 gegen Überschreiben schützen. 

(Heiko Petersen/cd) 


für 464-664-6128 

I 


1000 REM listing 1 [1168] 

1010 REM [272] 

1020 REM programm : UNI-RSX .LDR [1722] 

1030 REM erzeugt : UNI .BIN [585] 

1040 REM Start : &A000 [383] 

1050 REM laenge : 566 bytes o. buffer [2032] 

1060 REM [272] 

1070 ze=1480 [717] 

1080 KEY 138,“.“ [582] 

1090 FOR 1=&A000 TO &A232 STEP 8 [1007] 

1100 FOR a=1 TO 1+7 [829] 

1110 READ b$:b=VAL(+b$) [1052] 

1120 p=p*2:IF p> 65535 THEN p=p-65535 [ 1205 ] 

1130 p=UNT(p)XOR b:IF p<0 THEN p=p+65 [ 15 6 7 ] 

536 

1140 POKE a.b [253] 

1150 NEXT [350] 

1160 READ pr$ [ 447 ] 

1170 IF VAL("&"+pr$)<>p THEN 1430 [2457] 

1180 PRINT USING"zei 1 e : #### ok";ze [ 1629 ] 

1190 PRINT CHR$(11); [1054] 

1200 ze=ze+ 10 :p =0 [ 1313 ] 

1210 NEXT [ 350) 

1220 REM-patch [ 1802] 

1230 IF PEEK( 6 )=&B0 THEN 1260 [1406] 

1240 IF PEEK(6)<>&7B THEN 1370 [1302] 

1250 REM — anpassung CPC 464 [1324] 

1260 POKE &A0BE,&98:POKE &A08F.&CA [1307] 

1270 POKE 4A0F6.42C:POKE 4A0F7.483 [1414] 

1280 POKE 4A0F9,42E:POKE 4A0FA.4B3 [2165] 

1290 POKE 4A1CE.42C:POKE 4A1CF.4B3 [1886] 

1300 POKE 4A1D1,42E:POKE 4A1D2.4B3 [1846] 

1310 POKE 4A1FF.4C8:POKE 4A200.4B1 [2176] 

1320 GOTO 1370 [409] 

1330 REM -- anpassung CPC 664 [1412] 

1340 POKE 4A0BE.458 [566] 

1350 REM [272] 

1360 REM - speichern [1478] 

1370 IF PEEK(4BC77)=223 THEN PR INT"D1ske11 [ 2271 ] 
e";:GOTO 1390 

1380 PRINT"Kassette“; [1943] 

1390 PRINT" einlegen":PRINT".. TASTE ..":C [3857] 
ALL 4BB06 

1400 SAVE"uni",b,4A000,567 [863] 

1410 END [ 110 ] 


Listing Sprite 


[1090 ] 
[2188] 
[1782] 
[1579] 
[ 110 ] 
[1382] 
[1890] 
[1338] 
[ 1444 ] 
[1486] 
[936] 
[1763] 
[ 1097 ] 
[1627] 
[1988] 
[1631 ] 
[1652] 
[1418] 
(1920] 
[2301] 
[1006 ] 
[1290] 
[1063] 
[1514] 
[1860] 
[1284] 
[2125] 
[1543] 
[1624] 
[1818] 
[1509] 
[1526] 
[1808] 
[ 1684 ] 
[1371 ] 
[ 1665 ] 
[1781 ] 
[ 1041 ] 
[1615] 
[2509] 
[1619] 
[1113] 
[1528] 
[ 1560] 
[1795] 
[ 1482] 
[1196] 
[1792] 
[ 1 79 7 ] 
[ 1667 ] 
[1473] 


Listing Sprite 



1420 REM - fehler 

1430 KEY 138,"EDIT" 
1440 PRINT CHR$<7)" 
1450 PRINT".. TASTE 
1460 END 

1470 REM - 

1480 DATA 01,OF,AO, 
1490 DATA BC.3E.C9, 
1500 DATA AO,03,56, 
1510 DATA 70,AO,C3, 
1520 DATA C3.EC.A0, 
1530 DATA A1.C3.DA, 
1540 DATA CB,44,50, 
1550 DATA 4C.4C.C2, 
1560 DATA 50,41,47, 
1570 DATA 45.C6.47, 
1580 DATA D4.00.52, 
1590 DATA 20,58,CO, 
1600 DATA 13.1A.77, 
1610 DATA CD,A 8 ,AO, 
1620 DATA FE,03,20, 
1630 DATA DD,4E,02 , 
1640 DATA 04,DD,66, 
1650 DATA OB,ED,BO, 
1660 DATA 24,F 3,DO, 
1670 DATA OD,5E,02, 
1680 DATA 04,DD.66, 
1690 DATA DD, 6 E,00, 
1700 DATA 02,DD,56, 
1710 DATA B9,3E,05, 
1720 DATA C9,FE,01, 
1730 DATA FE,00.28, 
1740 DATA 3E.40.CD, 
1750 DATA 18,F8,FE, 
1760 DATA BB.C9.DD, 
1770 DATA B8.C8,18, 
1780 DATA F3.CD.A8, 
1790 DATA 22,99,66, 
1800 DATA BC.E5.06, 
1810 DATA FB.D1.2A, 
1820 OATA A2.D5.il, 
1830 OATA A2.C5.D5, 
1840 OATA 13,10,FA, 
1850 DATA 0D.20.F0, 
1860 DATA 2F,A2,C5, 
1870 DATA 00,00,77, 
1880 DATA F3.E1.CD, 
1890 DATA E9.FB.C9, 
1900 DATA F3.DD.6E, 
1910 DATA 5E.02.DD. 
1920 DATA DD,21,2B, 


+STR$(ze)+CHR$(13) 
fehler in";ze 

■ f . 1 . . " 


21,52,AO,CD,Dl,140B 
32,00,AO,C9,2C,48BE 
AO,C3,64,AO,C3,660B 
8D,A0.C3.C1,A0.079E 
C3,4B,A1,C3,93,4379 
AO,44,50,45,45,7 2 A F 
4F,4B,C5,46,49,7BF9 
43,4F,50,59,C2,2A38 
C5,53,45,D4,44,3E90 
45,04,57,41,49,1887 
A0,OF,AO,FE,O2,6946 
A8,AO,1A,77,23,1045 
C9,FE,02,20,4D,0A85 
EB,73,23,72,C9,5509 
41,F3,DO.7E.00,7BC0 
DO,46,03,DD,6E,7378 
05.77,54,50.13.3B91 
FB,C9,FE,03,20,22E6 
4E,00,DD,46,01,3279 
OD,56,03,DD,6E,77F8 
05,ED,BO,FB,C9,3D47 
DD, 66 ,01,OD,5E,7A00 
03,C9,FB,CD,00,388E 
F5,F1,C3,55,CB,5815 
20,FO,DO,7E,00,5028 
OA,FE,01,20,E5,70F1 
08,BC,C9,3E,C0,1058 
01,28,04,CD,06,201C 
46,00,CD,06,BB,7383 
F9,FE,02,20,C5,65ED 
AO,ED,53,97,86,527C 
CD,FA.Al,CD,10,2983 
F5,ED,78,IF,30,6E56 
2D.A2.ED,53.2D.487F 
31,A2,ED,4B,2B,6369 
C5,ES,1A,77,23,713D 
El,C1,CD,11.A2,196C 
Dl,C1,El,DD.2A,198C 
E5,7E,12,OD.7E,2B8C 
23,13,DD,23,10,0F6A 
11,A2.C1,0D,20,5F5E 
FE,04,C2,B5,AO,5E62 
00,DD, 66 ,01,DD,44AF 
56,04,DD,7E.06.32EE 
A2,DD,73,00,DD,6E79 


58 PC 5’89 







Tips & Tricks | 


1930 DATA 72,01,DD,75,04,DD,74,05,2609 


[ 1443] 

1940 DATA FE.00,20,03,AF,18,17,FE,7EF8 


[ 1247 ] 

1950 DATA 01,20,04,3E,AE, 18,0F,FE,OE 10 


[1370] 

1960 DATA 02,20,04,3E,A6,10,07,FE,OFCO 


[1752] 

1970 DATA 03,C2.B5,AO,3E,B6.32.39.2ED5 


[ 1375 ] 

1980 DATA Al,FB,C9,FE,02,CA.C9,Al,7A8B 


[ 2063 ] 

1990 DATA FE,05,C2,B5,A0,CD,A8,A0,6A94 


[1507] 

2000 DATA DD,4E,04,00,46,05,FD,21, 73AF 


[1957] 

2010 DATA 2B.A2.FD,7E.00.12,FD,7E.248C 


[2070] 

2020 DATA 01,02,FD,7E,04,77,23,F0,1907 


[1525] 

2030 OATA 7E,05,77,DD,6E,06,DD,66,3FC4 


[ 1782 ] 

2040 DATA 07,DD,5E,08,DD,56,09,18,383A 


[1160] 

2050 DATA 03,CD,A8,A0,ED,53,97,B6,2A7C 


[963] 

2060 DATA 22,99,B6,CD,FA,A1,CD,1D,2983 


[1041 ] 

2070 DATA BC,0D,21,2B,A2,DD,46,0 1 ,6939 


[ 1620] 

2080 OATA DD,4E,00,DO,5E,04,DD,56,73DC 


[ 2291 ] 

2090 DATA 05.C5.E5,7E,12,23,13,10.28AA 


[957 ] 

2100 DATA FA,El,CI,CD,11,A2,OD,20,538A 


[1747] 

2110 DATA F0.C9,CB,2C.CB,ID,3A,C3,577B 


( 1695 ] 

2120 DATA B7,FE,01,38,03,28,05,C9,670B 


[ 1295 ] 

2130 DATA CB,2A,CB, 1B,CB,2A,CB, 1B, 70A0 


[ 1652 ] 

2140 DATA C9,7C,C6,08,67,E6,38,CO,63D0 


[2416] 

2150 DATA 7C,06,40,67,7D,C6,50,6F,05CF 


[2013] 

2160 DATA 00,24,7C,E6,07,CO,7C,D6,63F6 


[1210] 

2170 DATA 08,67,09,10,04,00,CO,00.0440 


[ 1265 ] 

2180 DATA 90,00,00,00,00,00,00,00,4800 


[ 556] 

10 REM llstlng 2 


[1163] 

11 REM 


[ 272 ] 

12 REM Programm : UNI-DEMO.BAS 


[2839] 

13 REM gummfbal1 


[ 95 7 ] 

14 REM 


[ 2 72 ] 

15 CLEAR 


[217] 

16 DEFINT a-Z 


[ 553 ] 

17 MEMORY &9F6A 


[176] 

18 DATA 0,240,0,48,255,192,115,254,232, 

115 

[3346] 

,254,228,247,254,242,247 



19 DATA 255,254,247,255,254.247.255,254 

n 

[3230] 

5,255,236,115,255,236.48 



20 DATA 255,192,0,240,0,0,0,0,0,0,0,255 

25 

[2645] 

5,255,255,255,255,255,255 



21 DATA 255,255,255,255,255,255,255.255,25 

[3204] 

5,255,255,255,255,119,238 



22 DATA 238,17,136,68,0,0,0,0,0,0,0,0.0 

47 

[ 2988 ] 

,15,15,15,31,47,175,143,79 



23 DATA 15.47,15,79,143.175,47.79,15.7, 

31 , 

[2505 ] 

78,3,7,12,0,1,8,0 



24 DATA 0,240,240,0,247,254,0,247,248,0 

24 

[ 2 799 ] 

7,200.0,247,236,0,0 



25 REM 


[ 272 ] 

26 FOR i=49 F 9 2 TO &9FFE:READ b:POKE i,b 

NE 

[2379] 

XT 



27 REM 


[ 2 72 ] 

28 IF PEEK(4A000)<>201 THEN LOAD " uni",4AOO 

[3633] 

OlCALL 4A000 



29 REM 


[ 272 ] 

30 REM-bi 1 baufbau- 


[ 1166 ] 

31 REM 


[ 2 72 ] 

32 !PAGE,0:MOOE 1 


[ 1310 ] 

33 REM — schrift UNI — 


[1147] 

34 |DEF,0,3,12,49FB6 


[ 1846 ] 

35 LOCATE 1,25:PRI NT"UNI" 


[ 1664 ] 

36 FOR x=2 TO 48 STEP 2 


[ 975 ] 

37 a=a+l:b=0 


[ 1057 ] 

38 FOR y= 2 TO 16 STEP 2 


[ 967 ] 

39 IF TEST ( x , y)TMEN SET , 30 + a*24,220+b*24 : | 

[3322] 

DPOKE,4A22D,4EE38 



40 b=b+l:NEXT 


[ 906 ] 

41 NEXT 


[ 350] 

42 a = 0 


[ 324 ] 

43 REM — schrift RSX -- 


[ 1039 ] 

44 :OEF,0,3,12,49FD9 


[1859] 

45 LOCATE 1,25:PRINT'RSX" 


[1192] 

46 FOR x=2 TO 48 STEP 2 


[ 975 ] 

47 a=a+1:b=0 


[ 1057] 

48 FOR y=2 TO 16 STEP 2 


[ 967 ] 

49 IF TEST(x,y)THEN!SET,3 0 + a * 2 4,40 + b» 2 4 

: d 

[3362] 

POKE,4A22D,4EE38 



50 b=b+1:NEXT 


[ 906] 

51 NEXT 


[350] 

52 LOCATE 1,25:PRINT" " ; 


[1127] 

53 LOCATE 1,1 


[611] 

54 REM CPC 464 MOVE 1,1 


[801] 

55 MOVE 1,1,1:DRAWR 638,0:DRAWR 0,398:DRAW 

[4755] 

R-638,0:DRAWR 0,-398 



56 REM 


[ 272 ] 

57 REM ball 4 variablen definieren 


[2177] 

58 mo=3 :REM 

mo 

[2012] 

dus :OR 



Listing Sprite 





dBINT 

□ IE Erweiterung für dBASE III und dBASE III Plus. 

Sämtliche DOS-Funktionen nun auch in dBASE 

• Bildschirmfenster scrollen 

• Direktes lesen und beschreiben des Bildschirms 

• Window-Technik 

• Cursor-Manipulationen 

• Tastatur-Manipulationen 

• File-und Disk-Manipulationen 

• Direktes Handling der Schnittstellen 

• Datenfernübertragung 

• Maus 

• und vieles mehr 

Für sämtliche dokumentierten DOS-Interrupts und deren 

Funktionen, sind fertige dBASE-Proceduren auf Diskette 
vorhanden und mit allen Variablen und Übergabe-Para 
metern im Handbuch ausführlich beschrieben. 

Umfangreiches deutsches Handbuch. 

Ein unbedingtes MUSS für jeden Programmierer. 

dBINT ab sofort lieferbar auf 5 */4- und 3 '/ 2 -Disketten. 

für DM 98.- (sFr. 84.-*/ ÖS 700.-*) 

Unverbindliche Preisempfehlung 

Lieferung gegen Nachnahme, Verrechnungs-Check oder Vorauszah¬ 
lung auf Klo. SKA. CH-8610 Uster [z.G. Almat-Data/ Kto. 604'776-71), 
zuzüglich Varsandspesenanteil von OM 8.- (sFr.7.-/ ÖS 60.-). 

MMM-DATA 

Brunnenstrasse 1 

CH-8610 USTER 

Tel. 01/94145 72 

PS. Version für Turbo-Basic ab Mai 1989 lieferbar. 




Neue Speichererweiterung für CPC 

• RAM-Erweiterung 64, 128, 256 oder 512K für alle CPCs 

Alle Versionen nachträglich auf Maximal-Version aufrüstbar 

• optional 2 EPROM-Sockel mit frei wählbarer ROM-Nummer (1-15) 

' Patchprogramm für CP/M 2.2 (63K CP/M). Endlich laufen dBase. Mulliplan und Wordstar 

• Patchprogramm für CP/M Plus. CP/M Plus auch für CPC 464/664 
' resetfeste RAM-Disc (maximal 448K) für CP/M 2.2 und CP/M Plus 

• rosetfeste RAM-Disc unter BASIC(nur bei EPROM-Verslon) 

• 100% kompatibel zu dk'tronics RAM-Erweiterung und Sihcon-Disc 

• Anschluß über den Expansionsport (kein Eingriff in den Rechner nötig) 

’ geringe Abmessungen (mit Gehäuse: 160 x 83 x 20 mm) durchgeführter Erweiterungsbus 
RAM-Erweiterung mit Software für CP/M 2.2 und CP/M Plus auf 3''-Diskelfe 
(wahlweise auch 3.5"- oder 5.25"-Diskette) 

Preise: ohne RAMs. 99,- OM 64 KByte. 149, DM 128 KByte. 199,- DM 

256 KByte. 299,- OM 512 KByte. 449,- DM 

Aufpreis für zusätzliche EPROM-Sockel und Software Im EPROM 49,- DM 

X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk Ist ein Systemlautwerk, das anstelle eines 3“-Zweitlaufwerks am CPC 664/6128 
mH eingebautem oder am CPC 464 mit zusätzlichem 3“-Controller betrieben wird. Das X-DDOS- 
Betriebssystem wird zusammen mit einer EPROM-Karte an den CPC angeschlossen. 716 K nutz¬ 
bare Kapazität unter BASIC. CP/M 2.2 und CP/M Plus. 

• Die RAM-Belegung von X-DDOS ist nahezu 100% kompatibel zu AMSDOS. 

• Es kann softwaremäßig zwischen X-DDOS und AMSDOS umgeschaltet werden 

• Es werden Anpassungsprogramme lür CP/M 2.2 und CP/M Plus mitgeliefert. 

‘ Die CP/M Plus Anpassung ist auch auf einem CPC 464/664 mit 64K RAM-Erw. lauffähig 

• Die 224-KByte EPROM-Karte hat bei installiertem X-DDOS noch eine Restkapazität von 

208 KByte. 

• Damit X-DDOS auch in beliebigen anderen EPROM-Karten lauffähig ist. wurde völlig auf 
einen Kopierschutz verzichtet. 

’ Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln bezogen 
und direkt gegen das AMSDOS-ROM ausgetauscht werden. 

X-DDOS-EPROM, Software & Beschreibung 99,- DM 

224-KByte EPROM-Karte, X-DDOS. Software 8 Beschreibung 239. - DM 

5.25‘ oder 3.5” X-Lautwerk. 224-KByte EPROM-Karte. X-DDOS, Softw 8 Beschr. 589,- DM 

5.25“ oder 3.5“ X-Lautwerk. RAM-Erw. ohne RAMs, X-DDOS. Softw 8 Beschr. 589,- DM 

EPROM- Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2764, -128. -256 

• ROM-Nummern 0-15 frei wählbar 

• 7 Sockel 

• Bei 27256 zwei ROM-Nummern pro Sockel 

• Durchgeführter Expansionsport 

‘ Software zum automatischen Erstellen von Programmodulen (BASIC und BIN-Dateien) 

Ferliggerät für CPC 464/664 DM145,- Fertiggeräl für CPC 6128 DM169,- 

Modul-Software auf 3“-Diske[fe DM 95,- 

Zubehör für EPROM-Karten 

EPHQM 2764 DM 7,50 Prolexl-EPROM DM124,- Maxam-EPROM DM124.- 

EPROM 27128 DM8,50 Promerge Plus EPROM DM 114- Ucpia DM94- 

EPROM 27256 DM11,50 X-DDOS-EPHÜM DM 99.- Alpha-ROM DM 35 

EPROM 27512 DM21,50 Time ROM (bailenegepulferle EchUeiluhr) + EPROM DM135.- 

r T 1 Industrie-Elektronik GmbH 

1(1 lA W 1™ M 1 1 1 I Brahmsstraße 9,6835 Brühl 

U (- IN 1 1 1 1 Telefon 06202/71417 
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[~Tips & Tricks 


59 m$(0) = ''FORCE" :m$( 1 )="XOR " : m$ ( 2 ) = " AN D 
":m${ 3 ) ="OR 

60 stx=8:sty=2 :REM ste 

p x/y 6tart 

61 GOSUB 70 :REM mod 

us anzeigen & Sprite definieren 

62 x = 304:y=200 :REM x/y 

Start 

63 REM Interrupt starten 

64 EVERV 500 GOSUB 77 :REM 10 

sec 

65 EVERY 2000,2 GOSUB 83 :REM 40 

sec 

66 REM ball bewegen 

67 IF fx=0 THEN x=x-stx ELSE x=x+stx 

68 IF fy=0 THEN y=y-sty ELSE y=y+sty 

69 IF x < 2 + stx THEN fx = l 

70 IF x>620-stx THEN fx = 0 

71 IF y<24+sty THEN fy=l 

72 IF y > 398-sty THEN fy = 0 

73 1 SET,x , y 

74 GOTO 67 

75 REM 

76 REM modus aendern 

77 IF mo < 3 THEN mo=mo+l ELSE mo = 0 
70 IDEF,mo,3,12,49F92 

79 LOCATE 1,24:PRINT m$(mo); 

80 RETURN 

81 REM 

82 REM geschwindigkeit aendern 

03 IF s tx < 32 THEN stx = stx + 8 ELSE stx = 8 

84 IF sty<16 THEN sty=sty+2 ELSE sty=2 

85 RETURN 


10 REM llstlng 3 [1166J 

11 REM [272] 

12 REM programm : UNI-DEM2.BAS [2374] 

13 REM [272] 

14 CLEAR [217] 

15 DEFINT a-Z [553] 

16 MEMORY 49F2F [ 191 ] 

17 IF PEEK(&A000)< >201 THEN LOAD"un1 " ,4AOO [3633] 
0:CALL 4A000 

18 REM datas schildkroete [629] 


19 DATA 0,16,128,0,4,112,224,2,6,240,242,6 [3264] 
,18,244,243,132,48,254,250,192,48,245 

20 DATA 252,192,48,240,248,192.48,244,242, [3954] 
192,48,254,247,192,52.244,242,194,22 

21 DATA 240,240,134,0,240,240,0,0,18,132,0 [3683] 
,0,3,12,0,0,3,12,0,0,1,8,0,0,16,128 

22 DATA 0,0,112,224,0,0,240,242,0,30,244,2 [3321] 
47,135,60,254,250,195,48,245,252.192 

23 DATA 48,240,248,192.48,244,242,192,48,2 [3132] 
54,247,192,22,244,242,134,4,240,240 

24 DATA 2,0,112,224,0,0,18.132,0,0,3,12,0, [2253] 
0,3,12,0,0,1,8,0,0 


25 REM [272] 

26 FOR 1=0 TO 12 7:READ b:POKE &9F80+1 ,b:NE [1960 ] 
XT 

27 ;DEF.1,4,16,&9F80 [1115] 

28 REM - blldaufbau 1 - [1235] 

29 !PAGE,1:MODE 1:PAPER 2:CLS [1633] 

30 LOCATE 1,25:PRINT"UNI-RSX" [ 1822 ] 

31 FOR y=2 TO 16 STEP 2 [967] 

32 FOR x=2 TO 112 STEP 2 [1078] 

33 IF TEST(x,y)<>l THEN 37 [1105] 


34 MOVE x*5,200+y*5,1:REM CPC 464 MOVE x*5 [2861] 
,200 + y* 5 

35 DRAWR 8,0:DRAWR 0,8:DRAWR-8,0:DRAWR 0.- [1874] 

8 

36 DRAWR 8,0:DRAWR 10,5,3:DRAWR 0,10:DRAWR [3931] 
- 10,-5:DRAWR 10,5:DRAWR -10,0 


37 NEXT:NEXT [1022] 

38 LOCATE 1,2 5:PRINT" “; [ 1430] 

39 LOCATE 1,1 [611] 

40 REM [272] 

41 REM - blldaufbau 2.1 - [1402] 

42 REM [272] 

43 !PAGE,0:MODE 1:PAPER 0:CLS [1760] 

44 FOR 1=1 TO 20: [320] 

45 x=RND* 33:IF x<l OR x>33 THEN 45 [3103] 

46 y=RND*24:IF y<l OR y>24 THEN 46 [1555] 

47 LOCATE x,y:PRINT"UNI-RSX";:NEXT [2332] 

48 REM [272] 

49 REM - blldaufbau 2.2 - (blld von un [3420] 

ten nach oben tauschen) 

50 REM [272] 

51 x=320:y=32:s=0 [1190] 

52 FOR z=24 TO 0 STEP-1 [1692] 


Listing Sprite 


53 FOR p= 7 TO 0 STEP-1 [1208] 

54 iCOPYB,6C000+p*2048+z*80,69F2F,79 [2908] 

: REM zeile merken 

55 !COPYB,64000+p*2048+z*80,4C000 + p* 2048 + z [4067] 
*80,79 :REM neue zellen holen 

56 ;COPYB,69F2F,64000 + p*2048 + z*80,79 [4634] 

:REM und alte nach unten 

57 y=y+2:!SET,x,y:NEXT [1868] 

58 IF s THEN s=0:!DEF,3,4,l6,49FCO ELSE s= [3105] 
1 : 1DEF,3,4,16,49F80 

59 NEXT [350] 

60 REM [272] 

61 FOR t=0 TO 2000:NEXT [1664] 

62 REM [272] 

63 REM - blldaufbau 2.3 (bild von ob [4614] 

en nach unten tauschen) 

64 REM [272] 

65 FOR Z=0 TO 24 [967] 

66 FOR p=0 TO 7 [645] 

67 ICOPYB,6COOO+p*2048+z*80,69F2F,79 [ 1 795 ] 

68 !COPYB,64000+p*2048+z*80,6C000+p*2048+z [2660] 
*80,79 

69 [COPYB,49F2F,64000 + p*2048 +2 *80, 79 [2817] 

70 y=y-2:|SET,x,y [2107] 

71 IF s THEN s=0:!DEF,3,4,16,&9FC0 ELSE s= [3105] 

1 : IDEF,3,4,16,49 F 80 

72 NEXT:NEXT [1022] 

73 REM [272] 

74 FOR t=0 TO 2000:NEXT 11664] 

75 REM [272] 

76 REM - bildaufbau 2.4 (blld von un [3719] 

ten nach oben fuellen) 

77 FOR 2=24 TO 0 STEP-1 [1692] 

78 FOR p= 7 TO 0 STEP-1 [ 1208] 

79 !FILLB,4C000+p*2048+2*80,79,RND*255 [2659] 

80 y=y+2: SET.x.y [1176] 

81 NEXT [350] 

82 IF s THEN s=0:!DEF,3,4.16,69FCO ELSE S= [3105] 

1:!OEF,3,4,16.69F80 

83 REM [272] 

84 NEXT [350 J 

85 FOR t=0 TO 2000:NEXT [1664] 

8 6 REM [272] 

87 REM - bildaufbau 2.5 (blld von ob [3431] 

en nach unten holen) 

88 FOR 2=0 TO 24 [967] 

89 REM [272] 

90 FOR p=0 TO 7 [645] 

91 [COPYB,64000+P*2048+Z*80,6C000+p*2048+z [2660] 
*80,79 

92 NEXT:NEXT [1022] 

93 FOR t=0 TO 2000:NEXT [1664] 

94 REM [272] 

95 REM - bildaufbau 2.6 (bild von ob [4011] 

en/unten zur mitte holen) 

96 :FILLB,6C000,64000,0 [1914] 

97 zl=24:pl=7 [1020] 

98 FOR 2 = 0 TO 12 [971 ] 

99 FOR p=0 TO 7 [645] 


100 !COPYB,44000+p*2048+2*80,6COOO+p*2048+ [2660] 
2*80,79 

101 ICOPYB,44000+pl*2048+zl*80,4c000+pl*20 [2701] 


48 + 21*80,79 

102 IF pl>0 THEN pl=pl-l ELSE pl=7 [1394] 

103 NEXT [350] 

104 2l=2l-l:NEXT [1034] 

105 REM [272] 

106 FOR t=0 TO 2000:NEXT [1664] 

107 REM [272] 

108 REM - bildaufbau 2.7 - (bild von m [4372] 

Itte nach oben/unten holen) 

109 !FILLB,6C000,44000,255 [1888] 

110 21=12:pl=0 [377] 

111 FOR 2=11 TO 0 STEP-1 [1434] 

112 FOR p= 7 TO 0 STEP-1 [ 1208] 


113 !COPYB,44000+p*2048+2*80,6C000+P*2048+ [2660] 
2*80,79 

114 ;COPYB,44000+pl*2048+2l*80,4COOO+pl*20 [2701] 
40+zl*8O,79 


115 IF p1< 7 THEN pl = pl + l ELSE pl = 0 [ 1480] 

116 NEXT [350] 

117 z1=21+1:NEXT [607] 

118 REM [272] 

119 FOR t=0 TO 2000:NEXT [1664] 

120 REM [272] 

121 REM - bildaufbau 2.7 - (bild von o [4057] 

ben nach unten holen) 

122 !FILLB,6C000,44000,136 [2073] 

123 FOR 2=0 TO 24 [967] 

124 FOR p = 0 TO 7 [ 645 ] 

125 !COPYB,44000+p*2048+z*80,5C000+p*2048+ [2660] 
2*80,79 

126 NEXT:NEXT [1022] 


Listing Sprite 


[2251] 

[ 1963] 

[2529] 

[1431] 

[ 1638 ] 
[1733] 

[ 908 ] 

[ 729 ] 

[1346] 
[ 2635 ] 
[1891] 
[ 1676 ] 
[1588] 
[1407] 
[ 977] 

[ 399] 

[ 272 ] 
[1347] 
[1925] 
[832] 

[ 2095 ] 
[ 555] 

[ 272 ] 
[2639] 
[3531] 
[ 3531 ] 
[ 555 ] 
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Neue Vielfalt! 


Programmierer aufgepaßt! 


CPC Bücherkiste 


■ 


AUS DEM SYBEX-ANGEBOT 

Einführung in WqaAtar 

Oer Bestseller zum popu)aAan*Textverarbeitungsprogramm 
wurde für die BesilzefkjtäÖÄ^C überarbeite! und damit wichti¬ 
ge Hilfe und NachgtfG^jowerk bei der Arbeit mit Wordstar und 
MailMerge an^KfCPC Neben der klaren Einführung in den 
effektivenifigang mit Wordstar gibt es u.a. auch wertvolle Hin- 
weisßiJJie Installation von Druckern und zu Systempatches. 
2806eiten/40 Abb. Best.-Nr. 421 DM42,-* 


CPC Tips und Tricks Band 2 

Der zweite Band aus der Tips und Trieifcjweihe ist lur alle CPC- 
Besitzer interessant, egal ob Sie rwitf%i«!* 464,664 oder 6128 
besitzen. Schreiben Sie e'«i£''0iWnlserweiterungen oder ei¬ 
nen Maskengenerator^tflpere wichtige Systemroutinen ken¬ 
nen. Erfahren SiO^t^Jfm Programme beschleunigt und viele 
andere DmaewÄiffl täglichen Umgang mit dem Rechner fast 
unverzicfifcJtAiTfd Mit diesem Buch holl man noch mehr aus 
seinem JPc. 

250 Seiten Best.-Nr. 414 DM39,-* 


Arbeiten mit dBase II 

dBase II ist im PC-Bereich wohl eines der leistungsstarksten Da¬ 
tenbankprogramme. Benutzern eines Schneider CPC vermittelt 
em echter Experte in diesem Buch alle Kenntnisse, die für den 
erfolgreichen Einsatz von dBase II wichtig sind. Z.B Installation 
von und Programmieren mit dBase II, Editieren von Dateien mit 
Wordstar, Tips und Tricks. Jeder Lernschritt wird durch praxis¬ 
gerechte Beispiele ergänzt. Und zwar so. daß dem Leser die Um¬ 
setzung dann wirklich problemlos möglich ist. Ein Buch, das in 
|eder Arbeitsphase weiterhilft. 

272 Seiten/mit Abb. Best.-Nr. 422 DM48,-* 


Schneider CPC - Arbeiten mit dBASE II 

Benutzern eines CPC vermittelt ein echter Experte in diesem 
Buch alle Kenntnisso, die für den erfolgreichen Einsatz von 
dBASE II wichtig sind, z. 8.: Installation und Programmieren mit 
dBASE II, Editieren von Dateien mit Wordstar, Tips und Tricks. 
Jeder Lernschritt wird durch praxisgerechte Beispiele ergänzt. 
Und zwar so, daß dem Leser die Umsetzung dann wirklich pro¬ 
blemlos möglich ist. Ein Buch, das in |eder Ärbeitsphase weiter- 
hilft 

227 Seiten/mit Abb. Best.-Nr.: 440 DM 48, -* 


Das Maschinensprachebuch zum CPC 

Werseinen CPC wirklich beherrschen will, der muß sich mit dem 
Thema Maschinensprache beschäftigen Von den Grundlagen 
bis zur Programmierung des Z80-Prozessors. Das Maschinen¬ 
sprachebuch zum CPC hilft Ihnen von Anfang an Mit einer ge¬ 
nauen Beschreibung aller Befehle und ausführlichen Beispielen 
mit Hinweisen zur Benutzung der Systemroulinen und einem As¬ 
sembler/Disassembler sowie einem Monitor zum Abtippen So 
macht der Einstieg Spaß. 

330 Seiten Best.-Nr. 415 DM39,-* 


Das große Grafikbuch zum CPC 

Dieses Buch ist lür alle, die bisher dachlen, spektakuläre Gra¬ 
fik aut dem CPC sei nicht möglich Zwei Top-Autoren beweisen 
das Gegenteil: Mit CPC-Chan - dem Diagrammgenerator, mit De- 
stroyed - dem Arcade-Game. mit CPCs World - dem 3-D- 
Animationsprogramm, mit Vektorgrafik, mit Sprites. . Ja. Sie ha¬ 
ben richtig gelesen: Wir reden von den Grafikmöglichkeiten Ih¬ 
res CPC - inklusive 6128 und Joyce. 

589 Seiten Best.-Nr. 416 DM49,-* 


Programmwissen pur im Westentaschenformat 


Schneider CPC - Arbeiten mit Turbo Pascal 

Der Bestseller "Das Turbo Pascal Buch" wurde speziell tür Be¬ 
sitzer eines CPC überarbeitet. So ermöglicht es den optimalen 
Einsatz der leistungsfähigen Programmiersprache - auf die 
CPC-Arbeits- und Systemumgebung zugeschnitten - und 
durch zusätzliche Intormationen ergänzt, Zahlreiche Beispiele 
veranschaulichen die vorgestellen Programmierkonzepte. Übun¬ 
gen zu jedem Kapitel machen dieses leicht verständlich ge¬ 
schriebene Buch für Einsteiger zur unentbehrlichen Arbeitshilfe. 
296 Seiten/mit Abb. Best.-Nr : 441 DM48,-* 


Das Schneider CPC Grafikbuch 

Die vielfältigen Grafikmöglichkeiten Ihres Schneider CPC (464. 
664 und 6128). Von einer allgemeinen Einführung über ergän¬ 
zende Grafikbefehle. Erstellung von Grafiken mit dem Joystick. 
Darstellung zwei- und dreidimensionaler Diagrammtormen. 
künstlerische Grafiken, Zusammenspiel zwischen Grafik und 
Datenträger bis hin zur Hardcopy, 

328 Seiten/zahlr. Abb. Best.-Nr.: 442 DM 48,-* 


Schneider CPC Erfolg mit Multiplan 

Ein didaktisch hervorragendes Lehrbuch und Nachschlagewerk 
lür CPC-Besitzer, die das Tabellenkalkulationsprogramm anwen- 
aen wollen. Das Buch ist die überarbeitete, auf den CPC zuge¬ 
schnittene Version des Bestsellers "Erfolg mil Multiplan" und 
führt Schritt für Schrill in das Programm ein An konkreten 
Beispielen wird erklärt welchen Nutzen CPC-Besitzer mit Mul¬ 
tiplan in der Praxis haben. 

200 Seiten/ca. 45 Abb. Best.-Nr.: 445 DM 48,-* 

Schneider CPC Assembler-Kurs 
Buch mit Diskette) 

as Buch fuhrt Sie schrittweise ln die Programmierung des Z80 
ein und vermittelt Ihnen Befehlssatz des Prozessors wie Adros- 
siorungsarten. Sie lernen anhand vieler Beispiele, selbst nütz¬ 
liche Routinen zu entwickeln und vorhandene Hiltsroutinen tür 
Ihre Zwecke einzusetzten; dazu werden Ihnen Programme zur 
Erweiterung des Betriebssystems mit grafischen Befehlen vor¬ 
gestern. 

Die begleitende Diskette enthält einen Z80-Assembler, mit dem 
Sie selbst Programme entwickeln und testen können 
Buch und Kassette Best.-Nr.: 446 DM59,-* 

Buch und Diskette Best.-Nr.: 447 DM69,-* 


Führer zum CP/M Best.-Nr. 452 dm 19.80* 


Das große Buch der Public-Domain-Software 
Freie CP/M-Programme für Commo- 
dore 128, Schneider CPC und Joyce 

Public-Domain-Software setzt sich inzwischen auch in Europa 
durch. Diese Programme tragen kein Urheberrecht und dürfen 
deshalb mit Hobbylreunden getauscht werden. Doch gerade die 
großen Sammlungen für das Betriebsyslem CP/M enthalten ne¬ 
ben wahren ...Juwelen" auch viel unbrauchbares Material. 

Der bekannte Fachjournalist Martin Kotulla hat es sich zur Auf¬ 
gabe gemacht, die Idee der Public-Domain-Software auch in 
Deutschland populär zu machen. Aus den großen amerikani¬ 
schen Sammlungen hat er die interessantesten Programme her¬ 
ausgesucht. übersetzt, an Commodore- und Schneider- 
Computer angepaßt und detailliert in diesem Buch dokumentiert. 
Mit einem Wertcoupon aus dem Buch erhalten Sie die Program¬ 
me beim Autor zu einem besonders günstigen Preis. 

229 Seiten Best.-Nr 410 DM 34,80* 


Das BASIC-Buch zum 6128 

BASIC macht Spaß. Man muß es nur richtig erklärt bekommen 
Und genau das tut das große BASIC-Buch zum CPC 6128. In die¬ 
sem Buch steckt mehr als Elnsteigerwissen. Variablen, Zahlen¬ 
systeme, Bits und Bytes, Tokens, Stringbearbeitung, Sortierung 
Laufschritt, selbstdefinierte Zeichen, Windows, Fehlerbehand¬ 
lung. Kopierschutz. Grafiken, Soundprogrammierung, relative 
Dateien . Das verstehen wir unter Vielfalt. 

276 Seiten Best.-Nr. 461 DM39,-* 


464 Peeks & Pokes 

WerfEEKS und POKES zum CBQjfc4 kennen und anwenden 
will, der findet hier umfassqn«fi«Wfrrnation< Sie reicht vom 
Adreßbereich des ProzessqJMbBr Belriobssystem und Interpre 
ter bis hin zur EinfuhawpJPaie Maschinensprache. Dazu Pro- 
gramrnierhilfen.JÄÄVien sowie reichlich Material zu den The¬ 
men Grafiygflljiorfen, Massenspeicherung und Peripherie 
Trickj^aujWrteln in BASIC und RAM-Pages! 

180 |renen Best.-Nr: 463 DM29,-* 


AUS DEM DATA-BECKER-ANGEBOT 
Das Floppybuch zum CPC 

Was man alles aus der DDI-1 des CPC 464, CPC 664 und CPC 
6128 holen kann, zeigt dieses Buch aut eindrucksvolle Weise 
Neben den nötigen Erklärungen und einem ausführlichen DOS- 
Listing gibt es zahlreiche Utilities: eine komfortable Dateiverwal- 
tung, einen Disk-Manager. Selbst CP/M-Grundlagen und die re¬ 
lative Dateiverwaltung werden erklärt So findet wirklich |eder 
CPC-Besitzer In diesem Buch einen wertvollen Ratgeber 
422 Seiten Best.-Nr. 412 DM49,-* 


Das CP/M-Trainingsbuch zum CPC 

Beherrschen Sie CP/M Dieses Buch hilft Ihnen dabei Von den 
eisten Schritten bis zum perfekten Umgang. Dabei werden na¬ 
türlich die Versionen 2.2 und 3.0 für Schneider CPC 464.664 und 
6128 berücksichtigt Dieses CP/M-Tramingsbuch bietet ein we¬ 
nig mehr als andere: zum Beispiel Hiltsprogramme, mit denen 
Sie in der Lage sind, auch fremde Diskettenformate zu lesen 
oder Submit-Dateien zu erstellen. 

260 Seiten Best.-Nr 413 DM49,-* 

' Unabhängig von der Anzahl cfer bestellten Bücher berechnen wir tür das Inland 
3, - DM bzw, (ür das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie 
unsere Bestellkarte. 


CPC Hardwareerweiterungen 

Speziell tür den Hobbyelektroniker, der mehr aus seinem CPC 
machen möchte! Von nützlichen Tips zur Platinenherstellung 
über Adroßdecodierung, Adapterkarten und Interfaces bis zur 
EPROM-Programmierboard und -Programmiernetzteil oder Mo¬ 
torsteuerung tür Gleich- und Schrlltschaltmoloren werden mach¬ 
bare Erweiterungen auslührlich und praxisnah beschrieben 
445 Seiten Best.-Nr: 464 DM49,-* 


464 Intern 

Wirklich alle Geheimnisse des CPC 464 
lüftet dieses Standardwerk: Neben dem 
kommentierten BASIC-ROM-Listlng enthält es Ka¬ 
pitel zu Speicheraufteilung, Prozessor. Besonder¬ 
heiten des Z80, Gate Array. Video-Controller und 
Video-Ram, Soundchip. Schnittstellen, 
stellen, Betriebssystem, Routinenutzung, Bücher 

Character-Generator u.v.m. Für den Software 

fortgeschrittenen Basic-Program Zeitschriften 

mierer, für den Assembler-Pro¬ 
grammierer ein absolutes Muß! 

548 Seiten 
Best.-Nr: 465 
DM 69,-* 


Postfach 250 
3440 Eschwege 



/Daten- und 
Medienverlag 


DMV bringt jetzt: 



Das Buch zu BASIC2 

PCl512/1640-Besitzer können aufatmen. 

Jetzt ist sie da, die BASIC2-Toolbox. Mit die¬ 
sem einzigartigen Buch sind Sie nun in der 
Lage, das Locomotive BASIC2 besser auszu¬ 
nutzen, die Programmierung wird zum Kin¬ 
derspiel. 

Die BASIC2-Toolbox bietet nicht die x-te Ein¬ 
führung, sondern gibt anhand leistungsstar¬ 
ker und praxisorientierter Routinen und Pro¬ 
gramme den nötigen Durchblick. 

Schritt für Schritt lernen Sie die strukturierte 
Programmentwicklung bis hin zum fertigen 
und lauffähigen Programm. Der Text ist in 
leicht und für jedermann verständlicher 
Form geschrieben, der Lerneffekt ist quasi 
garantiert. Alle Beispielprogramme sind so¬ 
fort nachvollziehbar und stammen aus der 
täglichen Anwendungspraxis. 

Einige Beispiele aus dem Inhalt: 

Kurze Einführung in die Software-Entwicklung 

- Grundlagen und Struktogramme 
Werkzeuge für BASIC2 

- Lister ermöglicht die formatierte Druckausgabe für 
BAS IC2- P rog ram m e 

- COMP komprimiert Ihre BASIC2-Programme 

- Preprozessor für Include-Dateien 

- Cross ist ein Generator zur Erzeugung von Quer¬ 
verweislisten 

Werkzeuge zur Behandlung von Textdateien 

- Auswertung von Word-Textdateien 

- CUT, ein Filter für Textdateien 

- PASTE,Vereinigung von Textdateien 

Werkzeuge zur Software-Entwicklung 

- CALC, ein Rechner für verschiedene Zahlensy¬ 
steme 

- DUMP. Ausgabe beliebiger Dateien im Hexformat. 

- COMHEX, Umwandlung von COM-Dateien in 
HEX-Files 

Ein kompletter Disassembler für den Intel 8086 

- Von der Struktur zum fertigen Programm. 

Ein Disassembler wird programmiert. 


Die BASIC2-Toolbox 

Autor: Günter Born, 

250 Seiten, 54 Abb., 

ISBN Nr. 3-926177-01-2 (Best.-Nr. 402) 


Inland: 

Einzelpreis 4'J DM 

zzgl. Versandkoslen 3 DM 

Endpreis 52,- DM 


Ausland: 

Einzelpreis 49,- DM 

zzgl. Versandkosten 5 , dm 

Endpreis 54,- DM 


Zu beziehen überden Computerfachhandel, 
den guten Fachbuchhandel oder direkt beim 
Verlag. Händleranfragen erwünscht. 


Bitte benützen Sie unsere Bestellkarte 


DMV-Verlag 

Postfach 250 • 3440 Eschwege 
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soll, mitgeliefert, dazu jedoch später 
mehr. Der erste Arbeitsgang, mit dem 
wir unsere neuen Floppies behandeln, 
ist das Anschließen an den Computer. 
Dieses gestaltet sich recht einfach. Bei¬ 
de Laufwerke enthalten eine Steckver¬ 
bindung für die Datenleitung zum Con¬ 
troller und werden auch separat ange¬ 
steckt, das heißt, daß man auch im Not¬ 
fall (Reparatur oder ähnlicher Unbill) 
nicht auf beide Laufwerke verzichten 
muß, also das Erstlaufwerk auch solo 
betreiben kann. 

Apropos Erstlaufwerk, die G+L- 
5,25“ — 3“-Floppykombination kann 
in zwei Varianten bestellt werden: 

1. ) Erstlaufwerk = 3 Zoll 
Zweitlaufwerk = 5,25 Zoll 

2. ) Erstlaufwerk = 5,25 Zoll 
Zweitlaufwerk = 3 Zoll 

Hier sollte man sich vor dem Kauf 
gründlich überlegen, für welche Kom¬ 
bination man sich entscheidet, dazu je- 

’Stardrive’ und Brüderchen doch «**>**« 



Das G + L-Doppellaufwerk im Test 

In Heft 10/1988 testeten wir, wie Sie vielleicht noch wissen (oder falls nicht, 
noch nachlesen können), den ’Fremdgänger’, das 5 1/4“- Zweitlaufwerk der 
Firma G+L aus Hefersweiler. Dieses ’Stardrive’, so der Name des Lauf¬ 
werkes, kann nicht nur als Zweitlaufwerk, sondern auch als Erstlaufwerk 
und als Kombination mit einer 3“-Floppy bezogen und an die CPCs ange¬ 
schlossen werden. Wir haben uns diese andere, vor allem für CPC-464- 
Besitzer interessante Variante einer Diskettenstation einmal genauer ange¬ 
sehen. 


Angeliefert in einem großen Karton 
findet der Käufer das schon vorgestell¬ 
te ’Stardrive’, ein ehemaliges Commo- 
dore Amiga 5,25“-Laufwerk sowie ein 
3“-Diskettenlaufwerk Marke Hitachi, 
das sich in einem kleinen, stabilen Me¬ 
tallgehäuse befindet. Zugegeben, ein 
recht seltsames 'Geschwisterpaar’ sind 
sie schon, die beiden Massenspeicher, 
äußerlich ein etwas seltsames Gespann, 
aber gerade bei Floppies kommt es we¬ 
niger auf das Äußere als auf das Innen¬ 
leben und auf die Funktion an, und hier 
tut sich einiges für den Anwender. 

Ohne Kontrolle geht nichts! 

Die Kontrolle übernimmt in diesem 
Fall ein Original AMSDOS-Control- 
ler, der wie üblich an den Floppy-Port 
des CPC 464 angeschlossen wird, der 
ja auch gleichzeitig Erweiterungsport 
ist. Zu den Laufwerken werden außer¬ 
dem ein Original-Amstrad-Handbuch 


zur DD1 (welches als Einstieg voll¬ 
kommen genügt, da dank des Control¬ 
lers die Befehle gleich sind) sowie eine 
Original-CP/M-2.2-Diskette, die gleich¬ 
zeitig als Betriebssystem für die neuer¬ 
worbenen Floppy-Laufwerke dienen 


Ohne Strom geht auch nichts! 

Bei der Stromversorgung sind G + L 
auf eine recht einfache, jedoch nicht 
ungeniale Idee gekommen: Das Star¬ 
drive verfügt an sich über eine eigene 
Stromversorgung, die von G + L dem 
deutschen Standard (Trafo, Eingangs¬ 
spannung primär) angepaßt worden ist 
(im Testbericht 10/88 zum Stardrive 
nachzulesen). Von diesem Netzteil 
wird nun die sekundäre, schon gleich¬ 
gerichtete und geglättete Spannungs¬ 
versorgung über einen Floppy-Strom- 
versorgungsstecker hinten aus dem Ge¬ 
häuse geführt. Aus dem Gehäuse der 
3“-Floppy wurde hinten ein gegenteili¬ 
ger Stecker (Buchse) herausgeführt, 
der mit dem des Stardrive verbunden 


Abb.l: Die Stromver¬ 
sorgung und die Da¬ 
tenleitungen der bei¬ 
den Laufwerke sind 
problemlos miteinan¬ 
der zu verbinden. 
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wird. Das Netzteil ist stark genug, bei¬ 
de Laufwerke mit ausreichend ’Saft’ zu 
versorgen. 

Lauf, Laufwerk, lauf... 

Nachdem man sich durch die Verkabe¬ 
lung analysiert und gesteckt hat (was 
eigentlich kaum jemanden schwerfal¬ 
len dürfte, da alle Stecker nur in einer 
möglichen Richtung passen), kommt 
nun der spannende Augenblick, der uns 
zeigen soll, ob das G + L-Doppellauf- 
werk seine Schuldigkeit genauso tut, 
wie die ’Urfloppy’ DD1. Also, Star¬ 
drive einschalten, Monitor einschalten, 
Rechner einschalten, und CP/M-Dis- 
kette auspacken und einlegen. 

Nach dem Start mit “| cpm“ erscheint 
kurze Zeit später tatsächlich der 
CP/M-Bildschirm (Hatte jemand was 
anderes erwartet?). Alle CP/M-Pro- 
gramme laufen völlig problemlos, was 
durch den Controller zu erwarten war. 
Ein kleiner Hänger ist uns allerdings 
aufgefallen: Wir stellten uns einmal 
wie Neueinsteiger an, deren Besitz sich 
auf die CP/M- Diskette und einige neu¬ 
erworbene 3“- und 5,25“-Disketten 
beschränkt. Das erste, was der frisch¬ 
gebackene Floppy-Besitzer lernt, ist, 
daß seine Disketten vor dem ersten 
Einsatz formatiert werden sollten. So 
weit, so gut. Mit dem 3“-Laufwerk 
(A:) hatten wir dank des CP/M-Pro- 
grammes FORMAT.COM keinerlei 
Schwierigkeiten, allerdings fehlt dem 
Programm die Option für das 5,25“- 
Laufwerk (B:). Der Neuling wird am 
Anfang seine Schwierigkeiten damit 
haben, eine 5,25“-Diskette zu forma¬ 
tieren. An dieser Stelle ein Tip: Forma¬ 


tieren Sie eine Diskette in A:, danach 
wählen Sie das Programm COPY- 
DISK.COM an, es kopiert den Inhalt 
von A: nach B: formatiert jedoch vor¬ 
her frische, ungebrauchte Disketten. 

Rein mit der Software! 

Als nächstes stellte sich die Frage, wie 
kommerzielle Software auf dieses un¬ 
gewöhnliche Doppelgespann reagiert. 
Um es gleich vorwegzunehmen, sehr 
gut. Wir probierten mehrere Program¬ 
me aus, darunter einige Anwendungen 
und Spiele. Jedes Programm wurde 
einwandfrei gestartet, wohl auch wie¬ 
der ein Verdienst des Original-Con¬ 
trollers. Auch die normalen Funktio¬ 
nen wie Lesen, Schreiben, Löschen, 
Umbenennen und Kopieren liefen ein¬ 
wandfrei. Das Programm ’DISCOLO- 
GY’, ein Kopierprogramm auch für 
schwierige Fälle tat seine Arbeit vor¬ 
züglich, auch wenn sich einige kom¬ 
merzielle Programme anschließend 
weigerten, von einer 5,25“-Diskette zu 
starten, was allerdings nicht an den 
Floppies, sondern an den Programmen 
selbst lag (wobei noch einmal anzu¬ 
merken ist, daß das Kopieren nur der 
Erstellung einer Sicherheitskopie für 
eigene Zwecke dienen sollte). Wir 
konnten jedenfalls keinen Aussetzer 
bemerken. 

Das Urteil 

Wir wollen es kurz und gnädig ma¬ 
chen: Ein klares 'Prima’ kommt unse¬ 
rem Fazit am ehesten nahe. Nicht nur, 
daß man gleich über zwei Laufwerke 


verfügt, nein, sie sind auch gleich eine 
vollwertige Alternative zur bekannten 
DD1 und anderen Laufwerken. Eigent¬ 
lich besitzt man sogar drei Laufwerke, 
durch den schon im vorherigen Testbe¬ 
richt vorgestellten Kopfumschalter 
(Das Stardrive ist ein Doppelkopf- 
Laufwerk) ist man in der Lage, eine 
5,25“-Diskette zweiseitig zu bearbei¬ 
ten, ohne sie vorher dem Laufwerk zu 
entnehmen, umzudrehen und wieder 
einzuschieben. Auch das Kopieren 
zwischen 3“-Floppy und einer der bei¬ 
den Diskettenseiten funktioniert rei¬ 
bungslos, daher kann man getrost von 
dreien sprechen, auch wenn’s nicht di¬ 
rekt stimmt. Einzig der Preis der Lauf¬ 
werkskombination kann den strahlen¬ 
den Besitzerhimmel ein bißchen eintrü¬ 
ben, mit seinen DM 695, - liegt er ein 
bißchen hart an der Schmerzgrenze. 
Dies liegt jedoch an den Originalteilen, 
vor allem am Controller, der den Lö¬ 
wenanteil am Preis ausmacht. 

Noch eine kleine Anmerkung zur Kom¬ 
bination der beiden Laufwerke: Hier 
sollte man sich wirklich Gedanken ma¬ 
chen, ob es sich lohnt, das 5,25“-LW 
zur A:-Floppy zu machen, denn die 
meiste Software wird auf 3“-Disketten 
ausgeliefert, und hier kann es zu ernst¬ 
haften Problemen kommen. Die Kom¬ 
bination A: = 3“ und B: = 5,25“ ist 
dagegen voll zu empfehlen. 

Alles in allem kann man wirklich sa¬ 
gen, daß das Stardrive mit seinem klei¬ 
nen Bruder eine Bereicherung des 
CPC-Angebots ist. 
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Abb.2: Ziemlich kompakt und robust: der kleine J"-Bruder des Stardrive. 
Im unserem Falle hatte er das Sagen, und zwar als Laufwerk A: 



Abb.3: Das Stardrive von innen: das Netzteil versorgt beide Laufwerke 
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Mehr Speicher durch weniger RAM-Disk 

Die RAM-Disk als normalen Speicher 
nutzen leichtgemacht 

Möchten Sie Ihre RAM-Disk auch einmal für andere Zwecke einsetzen , als 
Sie es bisher gewohnt waren? Es bieten sich verschiedene Möglichkeiten an, 
den von der RAM-Disk belegten Speicher Ihres PCW-Rechners zu verwen¬ 
den. Wie wäre es zum Beispiel mit einem zusätzlichen Arbeitsspeicher? 

Oder einem Cache-Speicher zur Beschleunigung von Disketten-Operatio- 
nen? Oder was halten Sie von speicherresidenten Programmen? Sicher fal¬ 
len den Programmierern unter den Lesern entsprechende Anwendungen 
ein. 


Vorbedingung ist natürlich, daß der be¬ 
nötigte Speicher von der RAM-Disk 
’abgezweigt’ wird. Das heißt, wir tei¬ 
len dem BDOS mit, daß ein bestimmter 
Speicherbereich nicht mehr für die 
RAM-Disk zur Verfügung steht. Hier 
gibt es nun zwei Möglichkeiten, die im 
folgenden noch ausführlich erläutert 
werden: 

1. Patchen 

Will man ständig mit einer kleineren 
RAM-Disk arbeiten oder gar ganz dar¬ 
auf verzichten, empfiehlt es sich, das 
System-File zu 'patchen', daß heißt die 
benötigten Änderungen direkt im 
CP/M Programm auf der Diskette vor¬ 
zunehmen. Damit ist sichergestellt, 
daß nach jedem Ladevorgang (Cold- 
Boot) die gewünschte Speicher-Konfi¬ 
guration eingestellt wird. 

2. Individuelle Änderungen 
Benötigen Sie nur ab und zu einen Teil 
des zusätzlichen Speichers, können die 
Änderungen auch vorgenommen wer¬ 
den, während sich das CP/M-Betriebs- 
system schon im Speicher befindet. 
Dies hat den Vorteil, daß man je nach 
Wunsch und Notwendigkeit seine 'per¬ 
sönliche' Speicherkonfiguration wäh¬ 
len kann. Allerdings muß hier dann je¬ 
weils geprüft werden, ob der Speicher¬ 
platz nicht schon von der RAM-Disk 
belegt ist. Es bleibt somit nur noch zu 
klären, wo der benötigte Speicher ’ab- 
gezweigf werden kann und in welcher 
Größenordnung dies geschehen soll. 
Dabei kommt uns das 'Format’ der 
RAM-Disk entgegen, denn eine 'Spur' 
dieser Disk hat genau 16 KB Speicher¬ 
kapazität, entspricht also einem Spei¬ 
cherblock. Und da ab Speicherbank 2 
ein Speicherblock einer Speicherbank 
gleichgestellt ist, zumindest in der Be¬ 
handlung durch das Betriebssystem, 
bietet es sich an, die RAM-Disk jeweils 
um eine Speicherbank (Spur), bezie¬ 
hungsweise ein Vielfaches davon, zu 
verkleinern. Wir haben uns dabei, weil 


es einfacher ist, für die 'hinteren' Bän¬ 
ke entschieden. 

Sie merken sicher schon, daß zum Ver¬ 
stehen dieses Beitrages gewisse Vor¬ 
kenntnisse erforderlich sind, die hier 
nicht näher erläutert werden können. 
Falls Sie Probleme mit der verwende¬ 
ten Terminologie haben, möchten wir 
Sie auf weiterführende Literatur zu 
diesem Thema hinweisen (siehe Litera¬ 
turhinweis). Sämtliche hier aufgeführ¬ 
ten Adressen und Änderungen bezie¬ 
hen sich auf die CP/M-Version 1.4 
(J 14GCPM3.EMS). Sollten Sie mit ei¬ 
ner anderen Version arbeiten, müssen 
die entsprechenden Adressen zuerst 
angepaßt werden. 

Patchwork 

Zunächst die Änderung des System-Fi¬ 
les. Hier sind nur zwei kleine ’patches’ 
notwendig, die ohne größere Probleme 
mit dem CP/M-Debugger SID (Sy¬ 
stem-Diskette Seite 3) oder einem ähn¬ 
lichen Programm vorgenommen wer¬ 
den können. Die erste Änderung wird 
in der Initialisierungsroutine für den 
RAM-Disk-Treiber vorgenommen, 
denn hier werden neben dem Löschen 
des Directory, dem Inhaltsverzeichnis 


ft>sid 

CP/W 3 SIB - Version 3.* 
#r jl4gcp#3.e#s 
HEXT HSZE PC EHB 

um am km baff 

Is6cb2 
6CB2 06 06 
6CB3 32 . 

#s0333 
0333 09 Ob 
0334 6F . 

I« yl4gcp#3.e*s 

0140h record(s) dritten. 

»I 


Abb. I: Arbeüsprotokoll für die Änderung des 
Systemfiles mit SID 


der RAM-Disk, auch die Anzahl der 
Spuren (Banks) festgelegt sowie die 
Anzahl der reservierten Spuren und da¬ 
mit der Beginn des Directory. Wenn 
Sie sich das System-File mit SID in den 
Speicher geladen haben, finden Sie die 
Initialisierungsroutine ab Adresse 
$6C81. Ändern müssen Sie hier die 
Anzahl der Speicherblöcke, die grund¬ 
sätzlich von der RAM-Disk abgezogen 
werden, nämlich die System-Blöcke 
und die Blöcke der TPA (Transient 
Program Area). Dieser Wert ist vom 
System her auf sechs festgelegt. Er 
wird nun um die Anzahl der Blöcke 
vergrößert, die Sie der RAM-Disk neh¬ 
men wollen. Wenn Sie z.B. zukünftig 
32 KByte zu Ihrer eigenen Verfügung 
haben möchten, so muß dieser Wert 
auf 8 erhöht werden (zwei Blöcke = 32 
KByte). Damit verringern Sie die 
höchste, für die RAM-Disk verfügbare 
Spurnummer um zwei und verhindern, 
daß dort zukünftig das BDOS Daten 
abspeichert. Allerdings wird die Größe 
der RAM-Disk in der System-Meldung 
weiterhin mit der ursprünglichen Grö¬ 
ße angegeben, beim PCW 8512 mit 
368 KB. Um nun auch noch die korrek¬ 
te Größe angezeigt zu bekommen, ist 
noch ein zweiter Patch notwendig, und 
zwar in der Routine zur Ausgabe der 
Systemmeldung. Diese Routine finden 
Sie ab $0312 des System-Files. Hier 
muß ebenfalls wieder die Anzahl der 
Blocks verändert werden (Adresse 
$0333), die für die Ausgabemeldung- 
und damit zur Berechnung der 
Speicherkapazität- von der Anzahl 
der vorhandenen Speicherblocks abge¬ 
zogen wird. Der Originalwert ist auf 
neun festgelegt und muß nun für die 
neue System-Meldung entsprechend 
unserem Beispiel um zwei erhöht wer¬ 
den. Abb. 1 zeigt Ihnen das Arbeits¬ 
protokoll der Änderungen, wenn Sie 
mit SID vorgenommen werden, Abb. 2 
zeigt die 'alte' und die 'neue' System- 
Meldung. Aber bitte, falls Sie diese 
Lösung wählen: patchen Sie niemals 
die original Systemdiskette. Wollen 
Sie unbeabsichtigte Schäden vermei¬ 
den, arbeiten Sie stets mit einer Kopie. 

RAM-Disk(o) 

Die Wahl der zweiten Möglichkeit, das 
CP/M-Betriebssystem im Speicher zu 
ändern, war zunächst nicht ganz so ein¬ 
fach zu realisieren. Das liegt daran, 
daß die RAM-Disk als festes Speicher¬ 
medium betrachtet wird, das heißt,das 
Betriebssystem erwartet hier keine Än¬ 
derungen in Format oder Speicherka¬ 
pazität wie es ja beim Disketten Wechsel 
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CP/N Plus Anstrad Constmer Electronics ple 

v t.4, 6IX IPft, 2 Uufuerke, SlO/Centronics Zusatz, 3S8K Laufwerk tt: 

A>l 

CP/H Plus Anstrad Consuner Electronics ptc 

w 1.4, 6IX IPA, 2 Laufwerke, Slö/Centronics Zusatz, 338K Laufwerk Ri 

A>l 

Abb. 2: Die Einschallmeldung vor . und nach dem Patchen' 


Vorkommen kann. Nachdem die RAM- 
Disk einmal initialisiert wurde, der 
DPB (Disk Parameter Block) erstellt 
und das Directory aufgebaut ist, wird 
diese Initialisierung nicht noch einmal 
durchgeführt. Bei meinen 'Forschun¬ 
gen’ in dieser Richtung konnte diese 
Routine noch nicht einmal zurückfin¬ 
den, so daß ich mich letztlich für einen 
anderen Weg entschieden habe. Aufga¬ 
be ist es ja, zu verhindern, daß das 
BDOS auf den Speicherbereich zugrei¬ 
fen kann, den wir für uns ’abzweigen’ 
wollen. Da stellt sich die Frage, wie 
das BDOS normalerweise auf die 
RAM-Disk zugreift. Zunächst einmal 
gibt es das Directory der RAM-Disk. 
Hier werden neben dem Namen einer 
Datei auch deren Attribute und, was 
für uns von Bedeutung ist, der Spei¬ 
cherplatz eingetragen, und wo die Da¬ 
tei auf der RAM-Disk zu finden ist, die 
Nummern der Datenblöcke, die von 
der Datei belegt sind. Warum also 
nicht einfach einige Datenblöcke selbst 
belegen? Das BDOS errechnet jeden 
neuen Datenblock, der benötigt wird, 
aus einer ’Belegungstabelle’, in der die 
jeweils augenblickliche Belegung der 
RAM-Disk festgehalten wird. Eine sol¬ 
che Belegungstabelle existiert natürlich 
auch für die 'normalen’ Diskettenlauf¬ 
werke. Die Adresse dieser Tabelle 
wird unter der Bezeichnung Alloca¬ 
tion-Vector (ALV) im DPH (Disk Pa¬ 
rameter Header) aufbewahrt, für die 
RAM-Disk liegt diese Tabelle in Bank 
0 ab Adresse $BF35. Die Struktur die¬ 
ser Tabelle ist vom Format einer Dis¬ 
kette abhängig, dies bereitet uns bei der 
RAM-Disk aber keine Probleme. Die 
RAM-Disk benutzt Datenblöcke von 
2 KByte Größe, so daß eine Spur 
(= Bank, 16 KByte) aus acht Daten¬ 
blöcken besteht und somit jede Spur 
durch ein Byte (= 8 Bit) in der Tabelle 
vertreten ist. Bleibt uns also nur noch, 
den entsprechenden Eintrag zu berech¬ 
nen, und schon können wir unsere Spur 
belegen, indem wir alle Bits auf ’ 1 ’ set¬ 
zen. Wenn wir den Speicher anschlie¬ 
ßend wieder an die RAM-Disk zurück¬ 
geben wollen, wird der Eintrag einfach 
auf ’0’ gesetzt, und die Spur ist wieder 
frei. Eine Spur, die wir benutzen wol¬ 
len, kann natürlich schon Daten enthal¬ 
ten, die vom BDOS dort gespeichert 
wurden. Also müssen die Einträge in 
der Belegungstabelle, bevor sie belegt 
werden, überprüft werden, denn jeder 
Eintrag, der nicht '0' ist, gilt für uns 
automatisch als belegt. 

Ein weiterer Punkt, der beachtet wer¬ 
den muß: Die Belegungstabelle exi¬ 
stiert zweifach, wir müssen nach jeder 
Änderung eine Kopie der geänderten 


Einträge erzeugen, damit beide Tabel¬ 
len immer gleich sind. Zusätzlich zu 
den Änderungen in der Belegungsta¬ 
belle wird noch die maximale Anzahl 
der Spuren in der Drive Specification 
Table, aus der bei der Initialisierung 
der DPB errechnet wird, geändert. 
Dieser Eintrag wird nämlich bei jedem 
Schreibzugriff auf die RAM-Disk 
überprüft und stellt damit eine weitere 
Sicherung gegen ungewollte Zugriffe 
dar. 

Weiche Ware 

Nach so viel Theorie nun zur prakti¬ 
schen Umsetzung. Zur Durchführung 
der oben beschriebenen Änderungen 
steht nun ein Programm zur Verfü¬ 
gung, welches Sie in Ihre eigenen Pro¬ 
gramme einbinden können. Damit so¬ 
wohl BASIC- als auch TURBO-PAS- 
CAL-Programmierer in den Genuß 
größeren Speichers kommen, gibt es 
gleich zwei Versionen: RAMSPA- 
CE.BAS in MALLARD-BASIC und 
RAMSPACE.INC in TURBO-PAS- 
CAL. Kern dieser Programm-Module 
ist eine kleine Maschinen-Routine, die 
in den Common-Bereich der TPA gela¬ 
den wird und die gewünschten Ände¬ 
rungen vornimmt. 

In der BASIC-Version müssen vom 
Anwender zwei Variablen bereitge¬ 
stellt und verarbeitet werden: ’bank%’ 
und ’hibank%’. Die Variable bank% 
enthält beim Aufruf von RAMSPACE 
die Anzahl der Speicherbänke, die der 
RAM-Disk genommen bzw. zurückge¬ 
geben werden sollen, hibank% wird 
von RAMSPACE zurückgegeben und 
enthält, wenn die Operation erfolg¬ 
reich war, die Nummer der höchsten, 
von der RAM-Disk benutzten Spur 
( + 1) und damit die erste für den An¬ 
wender verfügbare Speicherbank. 
Falls die Operation nicht erfolgreich 
war, das heißt nicht genug Speicher auf 
der RAM-Disk vorhanden ist oder zu 
viele Speicherbänke zurückgegeben 
werden, wird hibank% auf den glei¬ 


chen Wert wie banks% gesetzt. Sie ha¬ 
ben also auch die Möglichkeit zu prü¬ 
fen, ob die gewünschten Speicherbän¬ 
ke frei sind und welche Speicherbänke 
Sie benutzen können. 

In der TURBO-PASCAL-Version tritt 
der Anwender über die Funktionen 

’Get_Ram’ und 'Return_Ram’ mit 

RAMSPACE in Verbindung. Beide 
Funktionen erwarten als Variable die 
Anzahl der Speicherbänke (wie oben 
bei banks%) und geben die höchste 
Spurnummer (s. hibank%) zurück. 
Wichtig ist in beiden Versionen, daß 
das Maschinenprogramm vor dem er¬ 
sten Aufruf der Funktionen bzw. Un¬ 
terprogramme initialisiert wird, nach 
Möglichkeit als ersten Programm¬ 
schritt, damit der Maschinencode auch 
in den Common-Bereich geladen wird. 
Die Listings der Demonstrationspro¬ 
gramme (RAM DEMO. BAS/RAM DE¬ 
MO. PAS) zeigen Ihnen, wie RAM¬ 
SPACE eingebunden und aufgerufen 
wird. Falls Sie nicht zu den Beziehern 
der DATABOX gehören, gehen Sie 
beim Abtippen der Listings bitte fol¬ 
gendermaßen vor: 

Tippen Sie zunächst das Programm- 
Modul RAMSPACE (je nach Version) 
ab und speichern Sie es auf der Disket¬ 
te. Danach folgt das Demonstrations¬ 
programm RAMDEMO. Speichern 
Sie es ebenfalls zuerst auf Diskette, be¬ 
vor Sie es ausprobieren. Starten Sie 
dann das Programm, unter BASIC mit 
dem Befehl 'RUN' und unter TURBO- 
PASCAL mit dein 'R’-Kommando. 
Wenn Sie den Programmtext richtig 
abgetippt haben, sollten Sie nun die 
Möglichkeit haben, Ihre RAM-Disk zu 
verkleinern und Ihren Speicher zu ver¬ 
größern. 

Beziehern der DATABOX steht natür¬ 
lich neben den hier abgedruckten Sour- 
ce-Listings auch eine unter CP/M 
(Vers. 1.4) lauffähige Version RAM¬ 
DEMO. COM und das kommentierte 
Assembler-Listing des Maschinen¬ 
programms zur Verfügung. 

(Norbert Finke/rs) 
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Franzis Verlag GmbH 
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Die Disk-Parameter von CP/M 2 und 3, c’t - 
Magazin für Computertechnik 4/87 


Diese Programme sind in Mallard-Basic und 
in Turbo-Pascal geschrieben. Nach dem Ein¬ 
geben sollten Sie die einzelnen Programm- 
module unter den entsprechenden Namen zu¬ 
erst abspeichern. Später können Sie dann wie 
im Text beschrieben genutzt werden. 


<21 > 

< i> 

< 43 > 
<17> 

< 65 > 

< 4 > 

< 44 > 

< 35 > 

< 34 > 

< 39 > 

< 13 > 

< 15 > 

< 68 > 

< 50 > 

< 30 > 

< 91 > 

< 9 5 > 
<17> 

< 76 > 

< 3 > 

< 7 > 

< 46 > 

< 44 > 

< 76 > 

< 5 1 > 

< 62 > 
< 2 > 

< 9 1 > 

< 60 > 
< 66 > 

< 84 > 

< 2 8 > 

< 5 9 > 

< 8 4 > 

< 38 > 

< 7 > 

< 35 > 


<85 > 

< 30> 

< 5 7 > 


< 74 > 

< 0 > 
< 2 3 > 


< 73 > 

< 59 > 

< 75> 

< 79 > 

< 9 2 > 

< 0 > 
< 20 > 

< 59 > 

< 13 > 

< 0 > 

< 83 > 
<41 > 

< 7 6 > 


100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 


RAMOEMO.BAS. -Demonstratio'' wie unter 
MALLARD-BASIC zusätzlicher Speicher¬ 
platz von der RAM-DI SK 'abgezweIgt' . 
werden und anschließend auch wieder. 

zurückgegeben werden kann. 

. »ritten 1988 by NoFI. 


* Programm-Modul RAMSPACE.BAS einbinden und * 

* -* Initialisieren *-* 

220 CHAIN MERGE "RAMSPACE", 230.ALL 

230 GOSUB 60140 

2 40 '*-- 

250 es$=CHR$(27):cls$=es$+"E"+es$+"H":WIDTH 255 
260 DEF FNat$(x,y)=es$+"Y"+CHR$(32+y)+CHR$(32+x) 
270 DEF FN1nv$(text$)=es$+"p"+text$+es$+"q" 

280 PRINT cls$"Oieses Programm können Sie dazu ben 

utzen, Ihre RAM-DI SK zu 'verkleinern' ,":PRINT 

290 PRINT"d,h. den Speicherplatz, den Sie der RAM- 

DISK wegnehmen, können Sie für":PRINT 

300 PRINT "eigene Zwecke (zusätzl. Arbeitsspeicher, 

2. B11dsch1rmspeicher, etc.) verwenden.":PRINT 

310 PRINT We1terhln können Sie Speicherplatz, den 

Sie der RAM-Disk 'abgezweigt' habenPRINT 

320 PRINT"wiede r zurückgebenPRINT:PRINT:PRINT 

330 PRINT"Bitte wählen S1e:":PRINT:PRINT 

340 PRINT FN1nv$(">1<")" Speicherplatz holen" 

350 PRINT FNinv$(">2<")" Speicherplatz zurückgeben 
360 PRINT FN1nv$(">3<")" Programm beenden" 

370 PRINT FNat$(0,24)es$"J"; 

380 a$ = INKEY$ : IF a$="'' THEN 380 

390 a=INSTR("123",a$):IF a = 0 THEN 380 

400 ON a GOSUB 420,550,690:GOTO 370 

410 '*-* Speicher holen *-» 

420 INPUT;"Wiev1ele Spe1cherb1öcke (Je 16 KByte) b 
enötlgen S1e";banksX 

430 IF banksX=0 THEN RETURN ELSE banksX =banksXAND 
255 

440 GOSUB 602 70:PRINT FNat$(0,24 ) es$ " J " ; 

450 IF banksX=h1bankX THEN 510 

460 PR INT"D1e RAM-01 SK wurde um "banksX*16" KByte 
verkleinert" 

470 IF banksX=l THEN PRlNT'Ihnen steht die Speiche 
rbank "hlbankX" zur Verfügung1":GOTO 620 
480 PRINT"Ihnen stehen die Spei cherbänke »"hlbankX 
- *"hibankX+banksX-1" zur Verfügung." 

490 GOTO 620 

500 '*-* nicht genug Speicher *-* 

510 PRINT"Der gewünschte Spe1 cherplatz kann nicht 
zur Verfügung gestellt werden." 

520 PRINT"Es steht nicht genug Speicher auf der RA 
M-DI SK zur Verfügung!" 

530 GOTO 620 

540 '«-» Speicher zurückgeben »-* 

550 INPUT;"Wieviele Spe 1 cherb 1 öcke (je 16 KByte) m 
öchten Sie zurückgebenbanksX 

560 IF banksX=0 THEN RETURN ELSE banksX=banksXANO 
255 

570 GOSUB 60310:PRINT FNat$(0,24 ) es$ " J" ; 

580 IF banksX=hibankX THEN 650 

590 PRINT ban ksX; :IF banksX=l THEN PRINT"SpeIcherb 
lock wurde"; ELSE PR INT"Speicherblöcke wurden"; 

600 PRINT" an die RAM-DISK zurückgegeben" 

610 PRINT"Die Kapazität der RAM-OISK beträgt nun " 

(hibankX-3)*16" KByte." 

620 PRINT:PRINT:PRINT"B1tte Taste drücken"; 

630 a$=INKEV$:IF a$="" THEN 630 ELSE RETURN 

640 '*-* Speicher nicht zurückgegeben *-* 

650 PRI NT"Die gewünschten Speicherblöcke können nl 
cht an die RAM-DISK zurückgegeben werden." 

660 PRINT"Eventuel1 kleinere Anzahl wählen!" 

670 GOTO 620 

680 ’*-* Programm beenden *-* 

690 PRINT c1s(:END 


< 9 > 

60000 

’ * ~ 

< 88 > 

60010 

' * . 

< 72 > 

60020 

' * . 

< 0> 

60030 

' * . 

< 13> 

60040 

' * . 

< 9 7 > 

60050 

' * . 

< 88 > 

60060 

' * . 

< 8 > 

60070 

* * . 


. RAMSPACE.BAS. * 

belegt Spuren der RAM-Disk und stellt. * 
dem Anwender die fre 1gewordenen Spei-. * 
cherbänke zur Verfügung bzw. gibt die. * 
zuvor fre 1 gemachtem Spuren an die RAM- * 
Disk zurück. 

Auf rufParameter: banksX = Anzahl der.. * 
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< 79 > 

< 33 > 

< 63 > 

< 63 > 

< 20 > 

< 65 > 

< 38 > 

< 34 » 

< 70> 

< 2 5 > 

< 8 » 
< 12 > 

< 32 > 

< 73 > 

< 9 8 > 

< 5 7 > 

< 69 > 

< 69 > 
<66> 

< 16 > 
< 28 > 
< 81 > 

< 9 > 

< 50 > 

< 62 > 

< 41 > 

< 68 > 

< 2 9 > 

< 8 4 > 

< 12 > 

<21 > 

< 73> 

< 89 > 

< 20 > 

< 7 6 > 

< 4 1 > 

< 16> 

< 77> 

< 38 > 

< 14> 


60080 
60090 
60100 
60110 
60120 
60130 
60140 
60150 
60160 
60170 
60180 
60190 
60200 
60210 
60220 
60230 
60240 
60250 
60260 
60270 
60280 
60290 
60300 
60310 
60320 
60330 
60340 
60350 
60360 
60370 
erden! 
60380 
60390 
60400 
60410 
60420 
60430 
60440 
60450 
60460 
60470 


*. gewünschten Spe1 cherbänke. 

*. Rückgabe: hibankX = hlchste von der... 

*. RAM-Disk belegte Spur (Bank) *1. 

*. »ritten 1988 by NoFi. 


- Initial 1sierung- 

MEMORY HIMEM-100:.. ‘Platz für's Masch. Prg. 

mp=HIMEM+1:. 'Startadresse festlegen 

IF mp<49152! THEN 60360: 'kein Speicherplatz 
DEF FN LO(var) = ASC(MKI$(UNT(var))) 

DEF FNHI(var)=ASC(MID$(MKI$(UNT(var)),2)) 

RESTORE 60400:. 'DATA-Zetger setzen 

FOR 1=0 TO 99:. 'Programm speichern 

READ a$:POKE mp+i,VAL("&H"+a$) 

NEXT 

G.Ramspace=mp+22:R.Ramspace=mp+58 

a$=FIND$("M:*.*"): 'RAM-Disk initialisieren 

RETURN 

'*- Unterprogramm Get_Ramspace -* 

POKE mp+17,FNLO(G.Ramspace) 

POKE mp+18,FNHI(G.Ramspace) 

GOTO 60330 

'*-Unterprogramm Re turn_Ramspace-* 

POKE mp+17,FNLO(R.Ramspace) 

POKE mp+18,FNHI(R.Ramspace) 
hibankX=0:CALL mp(banksX,h1bankX) 

RETURN 

'*— Programm kann nicht geladen werden-* 

PRINT CHR$(27)"E"CHR$(27)"H"; 

PRINT"Maschinenprogramm kann nicht geladen w 
":PRINT:PRINT 

PRINT"Programm abgebrochen!":END 
'*- Maschinenprogramm -* 


DATA 

05 , 

, 7 E , 

, 4F 

. A7 

,28,00, 

, 3A . 

, 85 , 

, FF, 

3C , 

, IF , 

, IF , 

, IF 

DATA 

47, 

i CD, 

, 5 A 

. FC 

,00.00, 

, El, 

, 71 , 

, C9 , 

3A , 

, DA , 

, BC, 

, D6 

DATA 

04, 

, D8 , 

, 5 F 

. AF 

,57,21, 

, 35, 

, BF . 

, 19 , 

50, 

, 41 , 

, B6 , 

,CO 

DATA 

2B , 

, 10 , 

, FB 

, 3 A , 

, DA.BC, 

,91, 

, 08 

, FE . 

03, 

, 08 , 

, 32 , 

, DA 

DATA 

BC, 

,23, 

. 3E 

, FF, 

, 18,16, 

. 3 A , 

, DA. 

, BC, 

06, 

, 04, 

, 5 F , 

, IC 

DATA 

81 , 

, B8 , 

. DO 

,C6, 

,04,32, 

DA , 

, BC 

, AF , 

57, 

,21, 

, 35 , 

, BF 

DATA 

19 , 

, so , 

,41 

, 77, 

,23,10, 

, FC , 

, 6 A 

, 60, 

4 A , 

,11, 

, 35 , 

, BF 

DATA 

19 , 

, EB, 

, EO 

, BO, 

, 3A,DA , 

, BC 

, 4F 

, C9 






(*- „j 

(* RAMDEMO.PAS *) 

(* demonstriert, wie unter TURBO-PASCAL mit dem #) 
(* Programm-Modul 'RAMSPACE.INC' zusaetz1icher *) 
(* Speicherplatz von der RAM-DISK 'abgezweigt' *) 
(* werden und anschliessend auch wieder zurueck-*) 
(* gegeben werden kann *) 

(* written 1988 by NoFi *) 

(* * ) 
PROGRAM ramdemo; 

<*$I RAMSPACE.INC*) 

TYPE 

st r 30 = STRINGÄ30Ü; 

VAR 

auswahl : CHAR; 

- - *) 

(* Infotext und Menue ausgeben *) 

(, - ,) 

PROCEDURE Show_Menue; 

FUNCTION inv(txt: str30) :str30; 

BEGIN 

1rw:=“Ä'p’+txt+“Ä'q'; 

END; (* Inv *) 

BEGIN (* Show_Menue *) 

CLRSCR; WRITE(inv('')); 

WRITELN('Dieses Programm können Sie dazu benutze 
n, Ihre RAM-DISK zu ',CHR(39),'verkleinern',CHR( 
39) , ' , ' ) ; 

WRITELN; 

WRITELN( 'd . h. den Speicherplatz, den Sie der RAM 
-DISK nehmen, können Sie für'); 

WRITELN; 

WRITELN('eigene Zwecke (zusätzl. Arbeitsspeicher 
, 2. Bi 1dschlrmspeieher, etc.) verwenden. ' ) ; 
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WRITELN; 

WRITELN('We1terhin können Sie Speicherplatz, den 
Sie der RAM-DI SK 1 ,CHR(39), 'abgezweigt' .CHR(39 ) 
,' haben,'); 

WRITELN; 

WRITELN«'wieder zurückgeben'); 

WRITELN; WRITELN; WRITELN; 

WRITELN('Bitte wählen Sie'); 

WRITELN; WRITELN; 

WRITELN(inv(">1<'), 1 Speicherp1atz holen'); 
WRITELN(inv('>2<'),' Speicherplatz zurückgeben') 


WRITELN(1nv('>3<' ), Programm beenden'); 

END; 

(* - * ) 

(* Menue-Bearbeitung *) 

(* - * ) 

PROCEDURE Menue(mode : BYTE); 

VAR 

Anz, Spur : BYTE; 


PROCEDURE Error; 

BEGIN 

CASE mode OF 
1:BEGIN 

WRITELN('Der gewünschte Speicherplatz kann 
nicht zur Verfügung gestellt werden. 1 ); 
WRITELN('Es steht nicht genug Speicher auf 
der RAM-DISK zur Verfügung!'); 

END; (* mode 1 *) 

2:BEGIN 

WRITELN('Die gewünschten Speicherblöcke kö 
nnen nicht zurückgegeben werden.'); 

WRITELN('Even tue 11 kleinere Anzahl wählen! 

' ) ; 

END; (*. mode 2 *) 

END; (* CASE *) 

END; (* Error *) 

BEGIN (* Menue *) 

WRITEC'Wievie1e Speicherblöcke (je 16 Kbyte) '); 
CASE mode OF 

1:WRITE('benötigen Sie? ’); 

2:WRITE('möchten Sie zurückgeben? '); 

END; 

A n z : = 0 ; 

READLN(Anz); 

GOTOXY(0,24); WRITE(“Ä'J'); 

IF Anz <> 0 THEN 
CASE mode OF 
1:BEGIN 

Spu r:= Ge t_Ram(Anz); 

IF Spu r = An z THEN Error 
ELSE 
BEGIN 

WRITE('Die RAM-DISK wurde um '); 

WRITELN(Anz*16, KByte verkleinert.' 

); 

IF An z =1 THEN 

WRITE('Ihnen steht die Speicherban 
k #',Spur) 

ELSE 

WRITE('Ihnen stehen die Speicherbä 
nke *',Spur,' - #',Spur+Anz-1); 
WRITELN( zur Verfügung.'); 

END; (* IF *) 

END; (* mode 1 *) 

2:BEGIN 

Spur:= Return_Ram(Anz); 

IF Spu r = An z THEN Error 
ELSE 
BEGIN 

WRITE(Anz ) ; 

IF Anz: 1 THEN WRITE( ' Speicherb1ock 
1 > 

ELSE WRITE« 1 Spe1 cherb1öcke '); 
WRITELN('wurden an die RAM-DISK zurü 
ckgegeben. 1 ); 

WRITE( 'Die Kapazität der RAM-DISK be 
trägt nun 1 ); 

WRITELN((Spur-3)*16, KByte.'); 

END; (* IF *) 

END; (* mode 2 *) 

END; (* CASE *) 

WRITELN; WRITELN; 

WRITELN('Bitte Taste drücken'); 
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REPEAT UNTIL KEYPRESSEO; 

END; (* Menue *) 

( *-x ) 

BEGIN (* ramdemo *) 

Init_Code; 

Show_Menue; 

REPEAT 

GOTOXY(0,24); WRITE('Ä'J') ; 

REPEAT 

READCKBD.auswahl); 

UNTIL auswahl IN Ä'l’..'3'ü; 

IF auswahl <'3' THEN Menue(ORD(auswah1 )-$30 ) ; 


UNTIL auswahl = '3‘; 

CLRSCR; 

END. 

(* - «) 

(* RAMDEMO.PAS *) 


(* RAMSPACE.INC *) 

(* belegt ueber die Funktion 'Get_Ram' die Spu- *) 
{* ren der RAM-DISK und stellt dem Anwender die *) 
(* belegten Spuren als Spe1cherbaenke zur Ver- *) 
(* fuegung, bzw. gibt die zuvor belegten Spuren *) 
(* ueber die Funktion 'Return_Ram' an die RAM- *) 
(* DISK zurueck. x) 

(* written 1988 by NoFI *) 

(* - * ) 

TYPE 

Code = ARRAYÄO. . 7 70 OF BYTE; 


CONST 



mCode 

; code 

= ($3A,$DA, 

$BC,$ D6 

,$04,$D8,$5F, 

$ AF , 




$57,$21, 

$35,$BF 

,$19,$50,$41 , 

$B6 , 




$C0,$2 B, 

$ 10,$F B 

,$ 3A,$DA,$BC, 

$91 , 




$D8,$FE, 

$03,$08 

,$32,$0A,$BC, 

$23, 




$3E . $FF, 

$18,$16 

, $3A,$DA,$8C, 

$D6, 




$04,$ 5 F, 

$1C,$81 

, $B8,$D0,$C6 , 

$04 , 




$32.$ DA, 

$BC,$AF 

,$57,$21,$35, 

$BF , 




$19,$50, 

$41 ,$77 

,$23,$10,$FC, 

$6A , 




$60,$ 4A, 

$11, $35 

,$BF,$19,$EB, 

$E D , 




$B0,$3A, 

$DA,$BC 

, $4F , $C9) ; 


(* 

Der 

Maschine 

ncode wird 

bei der 

I n i 11 a 1 i s i e- 

- *)' 

(* 

rung 

durch ' 

In 1t_Code' 

in das 

globale ARRAY *) 

(* 

1 mp ' 

kopiert 




*) 

VAR 






mp : 

code ; 






(* verschiebt das Maschinen-Programm 'mCode' in *) 
(* das globale Array 'mp' und ueberprueft ob *) 
(* der Code im Common-Bereich liegt. Diese *) 
(* Prozedur muss vor Benutzung der folgen- *) 
(* den Funktionen einmalig aufgerufen werden. *) 


PROCEDURE Init_Cod e; 


VAR 

Def_D r : BYTE; 


BEGIN 

IF ADDR(mp)<$COOO THEN 
BEGIN 
CLRSCR; 

WRITE('Maschinenprogramm kann nicht geladen'); 
WRITELN(’ werden!'); 

WRITELN; WRITELN; 

WRITELN« 'Prog ramm abgebrochen! 1 ) ; 

HALT ; 

END; 

mp:= mCode; (* Maschinen-Code verschieben *) 

(* RAM-DISK initialisieren *) 
def_0r:=BDOS(25); 8DOS(14,12); BD0S(14,Def Dr); 
END; 


(* Schaltet ueber das XBIOS die System-Bank ein *) 
(* und fuehrt die ue.ber HL adressierte Routine *) 
(* aus. *) 
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1—JOYCE 



FUNCTION Do_Cal1(P_Adr:INTEGER; banks:BYTE) :BYTE; 
CONST 

dpb_dsm = $FF85; (* Eintrag im OPB *) 

TE_JP_HL = $09Bl; (* Sys-Einsprung TE JP (HL) *) 

XBIOS = $FC5A; (* XBIOS-Einsprung *) 

VAR 

rd_tracks, hibank : BYTE; 

BEGIN 

IF banka <>0 THEN 
BEGIN 

rd_tracks:= (MEMÄdpb_dsmÜ+l) DIV 8; 

INLINE 


(* Variablen uebernehmen 

und 1 

Programm aufrufen 

* ) 

($3A/rd tracks/ 

(* 

LD 

A , (rd tracks) 

*) 

$47/ 

(* 

LD 

B, A 

*) 

$3A/banks/ 

(* 

LD 

A,(banks) 

* ) 

$4F / 

(* 

LD 

C, A 

*) 

$2A/P Adr/ 

(* 

LD 

HL,(P Adr) 

*> 

$CD/XBIOS/ 

(* 

CALL 

X8I0S 

*> 

TE JP HL/ 

<* 

DE FW 

TE JP HL 

*) 

$79/ 

(* 

LD 

A , C 

») 

$32/hiban k); 

(* 

LD 

(hi bank) , A 

*) 

Do Cal 1 := hi bank; 





END 





ELSE Do Cal 1:= banks; 




END; 





<*- 






(* belegt die mit 'banks' spezifizierten Spuren *) 
(* (Speicherbaenke) der RAM-OISK und uebergibt ») 
(* die hoechste, von der RAM-DI SK benutzte Spur *) 
(* (+1) zurueck. *) 

FUNCTION Get_Ram(banks:BYTE) :BYTE; 

BEGIN 

Get_Ram:=DO_Ca1l(AODR(mp),banks); 

END; 


<* - *) 

(* gibt die in 'banks' spezifizierte Anzahl ») 
(* Speicherbaenke an die RAM-DI SK zurueck und *) 
(* nimmt die hoechste von der RAM-DISK benutzte *) 
( * Spur ( 4-1) auf . * ) 


FUNCTION Return_Ram(banks:BYTE) :BYTE; 

BEGIN 

Return_Ram:=Do_Ca11 (ADDR(mp) + 36,banks); 
END; 


(*- 

(* RAMSPACE.INC *) 


<**********»*********« 

RAMSPACE.ASM 

Routinen zum Freistellen des RAM-0isk-Speichers und 
anschließender Rückgabe des f r e 1 ge s te 1 1 t en Speichers 
<c) 1988 by NoFi 


«*• Definition der benutzten System-Adressen 
* 


RDTRKS 

EQU 

OBCDAH 

ALVECT 

EQU 

OBF35H 

MAXBLK 

EQU 

0007FH 

XBIOS 

DPBDSM 

EQU 

EQU 

0FC5AH 

0FF85H 


Anzahl der Spuren für die RD 
(Eintrag ln Orive Spec. Taule) 
Startadresse A11ocation-Vector 
für die RD 

Hier bewahrt das BIOS die An¬ 
zahl der Speicherblocks auf 
Einsprung-Adresse X8IOS 
DSM-E1ntrag Im DPB LW M: 


*** Zusatzroutine für Aufrufe aus BASIC-Programmen 


** * 

HL 

zeigt 

auf gew. Anzahl 

Blocks die freigestellt bzw. 

*# * 

zu rückgegeben werden 

sollen, DE zeigt auf Rückgabe 

*** 

* 

Integer 

B1ocknumme r) 





PUSH 

DE 


DE sichern 



LD 

A,(HL) 


gew. Blockanzahl -> A holen 



LD 

C, A 


und in C sichern 



AND 

A, A 


prüfen ob Blockanz. = 0 



JR 

Z,ENOR 


wenn ja, abrechen 



LD 

A,(DPBDSM) 


Anz. Datenbl. aus DPB holen 



INC 

A 


■fl 



RR A 



durch 8 teilen, ergibt Anzahl 



RR A 



der Spuren (16 KByte) 



RR A 






LD 

B. A 


und ins B-Register übertragen 



CALL 

XBIOS 


XBIOS aufrufen 



DE FW 

GRDSPC 


die Adresse der Funktion wird 






vom BASIC-Programm eingetragen 

ENOR 


POP 

HL 


Rückgabe-Adresse zurückholen 



LD 

(HL),C 


und Blocknummer abspe'chern 



RET 



danach zurück 

; * 

; *** 

Hier die 

Routine zum 

Freistellen des Speichers 

; * * * 

Ei ngang: 

B = max. Anzahl 

RD-Spuren (DPB-Wert) 

; *#* 



C = gew. Anzahl 

Spetcherbänke 

; *** 

Ausgang: 

wenn o.k, C 

= höchste von der RD benutzbare 

; *» * 

; * 



Spu r +1, sonst 

C ist unverändert 

GRDSPC 

LD 

A,(RDTRKS) 


-.Anzahl RD-Spuren holen 



SUB 

A , 4 


prüfen ob verkl. werden kann 



RET 

C 


;wenn nein, abbrechen 



LD 

E , A 


;sonst als ALV-Offset -> E 



XOR 

A 


; A = 0 



LD 

D, A 


; D = 0, (DE=ALV-Offset) 



LD 

HL,ALVECT 


;Adresse ALV -> HL 



ADD 

HL , DE 


; Eintrag für Spur ausrechnen 



LD 

D.B 


;max. Anzahl Spuren -> D 



LD 

B.C 


;Blockanzahl als Zähler > B 

NXTTRK 

OR 

A,(HL) 


;E 1 ntrag prüfen 



RET 

NZ 


;wenn belegt, abbrechen 



DEC 

HL 


.Adresse ALV -1 



DJNZ 

NXTTRK 


;und nächste Spur prüfen 



LD 

A,(RDTRKS) 


;danach Spurnummer holen 



SUB 

A,C 


;und Spurnummer - Anzahl 



RET 

C 


;wenn negativ, zurück 



CP 

A, 3 


;prüfen ob reservierte Spur 



RET 

C 


;dann ebenfalls zurück 



LD 

(ROTRKS).A 


;neue Spurnummer abspeichern 



INC 

HL 


; H L zeigt auf freien Eintr. 



LD 

A,OFFH 


;$FF = Spur belegt 

• 


JR 

SRDTRK 


;und Spuren belegen 

; * 

; *** 

Hier nun 

die Routine 

zur 

Rückgabe des zuvor freige- 

; ** * 

machten 

Spei cherp1atzes 


; *** 
; * 

Ein- und 

Ausgang s. 

GRDSPC 

RRDSPC 

LD 

A,(RDTRKS) 


;höchste Spurnummer holen 



SUB 

A , 4 


Anzahl Systemspuren (fl) 



LD 

E , A 


;und in E sichern 



INC 

E 


;Anz Spuren +1 



ADD 

A,C 


;♦ Anzahl zurückgeg. Blocks 



CP 

A , B 


;mit max. Anzahl vergleichen 



RET 

NC 


;wenn größer, abbrechen 



ADO 

A , 4 


;Systemspuren addieren 



LD 

(RDTRKS),A 


;und abspeichern 



XOR 

A 


; A = 0 



LD 

D, A 


;D = 0 (DE = Offset für ALV) 



LD 

HL.ALVECT 


•.Staradresse ALV -> HL 



ADD 

HL, DE 


;und ALV berechnen 



LD 

0.8 


;max. Spur-Anz. in D sichern 

SRDTRK 

LD 

B.C 


;zurückg. Anzahl Blocks -> B 

SETTRK 

LD 

(HL) ,A 


;E1ntrag beiegen/fre I machen 



INC 

HL 


;Ad resse -1 



DJNZ 

SETTRK 


;und nächste Spur 



LD 

L, D 


;max. Spur -> L 



LD 

H , B 


; B = 0 



LD 

C , D 


;und nach BC 



LD 

OE,ALVECT 


;ALV-Adresse holen 



ADD 

HL, DE 


; und 2. ALV ausrechnen 



EX 

DE , HL 


;kopieren vorbereiten 



LDIR 



;ALV kopieren 



LD 

A,(RDTRKS) 


-.höchste RD-Spurnr. holen 



LD 

C, A 


;und nach C 



RET 



;danach zurück 



END 




• ****** 


Listing Mehrspeicher 


Listing Mehrspeicher 
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PU-Besteiiservice 

Hiermit mache ich von Ihrem Angebot Gebrauch und bestelle: 

SOFTWARE 


5 1 /4‘ 


3V2‘ 



1 29 

□ 

185 

□ 

PC-Splelebox Nr. 1 

DM 

40,- 

<291 

□ 

1292 

□ 

PC-Splelebox Nr. 2 

DM 

49,— 

161 

□ 

162 

□ 

Know PC 

DM 

49,- 

1293 

□ 

1294 

□ 

Ergänzungsdiskette 

DM 

29,- 

229 

□ 

235 

□ 

Hyperkey (MS-DOS) 

DM 

99,— 

225 

□ 

231 

□ 

Fraktal Generator 2 D (MS-DOS) 

DM 

49,— 

248 

□ 

249 

□ 

Fraktal Generator 3 D (MS-DOS) 

DM 

69.— 

228 

□ 

234 

□ 

CoriText PC (MS-DOS) 

DM 

99,- 

2409 

□ 

2410 

□ 

Corflbxt PRO - Upgrade - 

DM 

129.— 

2407 

□ 

2408 

□ 

CoriTbxt PRO 

DM 

199,- 

227 

□ 

233 

□ 

BCI DlsAsm/186 (MS-DOS) 

DM 

199,- 

242 

□ 

243 

□ 

FontEdlt PC (MS-DOS) 

DM 

99,- 

236 

□ 

237 

□ 

MausAII (MS-DOS) 

DM 

29,90 

238 

D 

239 

□ 

Maskedlt Plus (MS-DOS) 

DM 

99,— 

246 

□ 

247 

□ 

C-Funktlons-Sammlung (MS-DOS) 

DM 

99,- 

2801 

□ 

2802 

□ 

TOOLBOX Spezial 1: (MS-DOS) 

DM 

35,- 

2804 

□ 

2805 

□ 

TOOLBOX Spezial II: (MS-DOS) 

DM 

35,- 

2806 

□ \ 

2807 

□ 

TOOLBOX Spezial III: (MS-DOS) 

DM 

35,- 

2808 

□ 

2809 

□ 

TOOLBOX Spezial IV: (MS-DOS) 

DM 

35,- 

2811 

D 1 

2812 

□ 

TOOLBOX Spezial V: (MS-DOS) 

DM 

35,— 

2813 

□ 

2814 

□ 

TOOLBOX Spezial VI: (MS-DOS) 

DM 

35,— 

2815 

□ 

2816 

□ 

TOOLBOX Spezial VII: (MS-DOS) 

DM 

35.— 

2220 

□ 

2221 

□ 

InfoWare (MS-DOS) 

DM 

69,- 

2222 

□ 

2223 

□ 

InfoWare (PC-DOS) 

DM 

69,- 

2224 

□ 

2225 

□ 

InfoWare (GW-Basic) 

DM 

69,- 

2226 

□ 

2227 

□ 

InfoWare (Quick-Basic) 

DM 

69.— 

2228 

□ 

2229 

□ 

InfoWare (Turbo-Basic) 

DM 

69,- 

2230 

□ 

2231 

□ 

InfoWare (Quick C) 

DM 

69,- 

2232 

□ 

2233 

□ 

InfoWare (Turbo C) 

DM 

69.- 

2234 

□ 

2235 

□ 

InfoWare (Assembler 8086/8088) 

DM 

09,- 

2236 

□ 

2237 

□ 

InfoWare (Lotus 1-2-3) 

DM 

09,- 

2238 

□ 

2239 

□ 

InfoWare (MS-Word 30/4.0) 

DM 

69,- 

2240 

□ 

2241 

□ 1 

InfoWare (Word Perfekt 4.25) 

DM 

69,- 

2242 

□ 

2243 

□ 1 

InfoWare (PC-Grundlagen) 

DM 

69,- 

2244 

□ 

2245 

□ 

InfoWare (C-Grundlagen) 

DM 

69,- 

2246 

□ 

2247 

□ 

InfoWare (Framework II) 

DM 

99,- 

2248 

□ 

2249 

□ 

InfoWare (dBase III plus) 

DM 

99,- 

252 

□ 

253 

□ 

ERGO 

DM 

149,- 

2402 

□ 

2401 

□ 

Topspeed Modula 2 Compiler 

DM 

348.- 

2404 

0 

2403 

□ 

Topspeed Modula 2 Techkid 

DM 

248,- 

2406 

□ 

2405 

□ 

Topspeed Modula 2 Debugger 

DM 

248,- 

2412 

D 

2411 

□ 

Topspeed Modula 2 Compiler und Debugger 

DM 

555,— 

6001 

□ 

6002 

□ 

DOS-Tools Vol. 1 

DM 

69,- 

6003 

□ 

6004 

□ 

DOS-Tools Vol. 2 

DM 

69,- 

6005 

O 

6006 

□ 

DOS-Tools Vol. 3 

DM 

49,- 


0 Den Betrag bezahle ich mittels des bei- + Porto/Verpackung 
gefügten Verrechnungsschecks. (Inland 3,— DM.Ausland 5,— DM) 

□ Ich bitte um Lieferung per Nachnahme 
zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD), 

Demo zu conText pro (5V4“) 5 .- dm Gesamtbetrag 
0 Demo zu InfoWare (5V4") 5,- DM - -- — 
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»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


303 _ 

Stck. 

Datebox zum JOYCE SH 1 

30,- DM 

304 _ 

_ Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 2 

30,- DM 

305 _ 

_ Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 2 

24,- DM 

306 _ 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 2 

48,- DM 

360 _ 

_ Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 3 

30,- DM 

361 _ 

Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 3 

24,- DM 

362 _ 

_ Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 3 

48,- DM 

367 _ 

_ Stck. 

Sonderheft JOYCE Nr. 4 

20,- DM 

3671 _ 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 4 

30,- DM 

3672 _ 

_ Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 4 

24,- DM 

3673 

Stck. 

Kombipack, Disk 1 + 2 zum JOYCE SH 4 

48,- DM 

® 215 _ 

Stck. 

JOYCE Programmsammlung Vol. 1 

59,- DM 

216 _ 

Stck. 

JOYCE Programmsammlung Vol. 2 

49,- DM 

A 217 

_ Stck. 

JOYCE Programmsammlung Vol. 3 

69,- DM 

219 _ 

Stck. 

JOYCE Programmsammlung Vol. 4 

59,- DM 

220 

_ Stck. 

JOYCE Programmsammlung Vol. 5 

99,- DM 

221 _ 

Stck. 

JOYCE Programmsammlung Vol. 6 

59,- DM 


+ Porto/Verpackung 

(Inland 3,- DM, Ausland 5,- DM) _ 

Gesamtbetrag _ 

□ Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr. 
(Bei Lieferung ins Ausland ist Nachnahme nicht möglich.) 


®a0TJ 

33 ® 3- 

NC U) < 

®cn =5 > 

3ro = 3 

gi&i 

n® ®to 

5-g.z 

§ ® c 
«<?. Z n 

S&il 

gjsr 



Datum 


Unterschrift (bet Minderjährigen des gesetzlichen Vertreters) 






a 

l. 

0 


c 

< 


O) 

0 

k. 

0) 

> 

> 

2 

ü 


^ s 

O CM 

s £ 

& g 
0) « 
a *s 

3 2 

0) o 

s EL 


0 

ö) 

0 

£ 

o 

0 

Ui 

o 

CO 


0 

4-» 

k. 

0 

4^ 

k. 

o 

£ 

c 

< 


u> 

0 

c 

0 

o 

!h 

■n 

0 

0 

CM 

k. 

0 

c 

k. 

£ 

O 

0 

> 

« 

> 

c 

3= 

0 

0 

2 

Ü 

o 

0. 

Q. 


0 

O) 

0 

£ 

ü 

0 

1U 

o 

CO 



0 

4-* 

k. 

0 

4-« 

o 

I 

c 

< 


o> 

0 

"kl 

0 

> 

> 

2 

D 


0 


0 

C 


ü> 

0 

O 

0 

"43 

in 

£ 

0 

CM 

£ 

C 

£ 

0 

km 

0 

4-» 

0 

0 

0 

Ui 

c 

*= 

o 


0 


ü 

0 

'fr 

Gl 

Q. 

(0 


a 

k. 

0 

4-* 

k. 

o 

£ 

< 


O) 

0 

k. 

0 

> 

> 

2 

Q 


0 

c 

0 9 

vp in 
0 CM 

C JZ 
O 
0 
3= 
0 
O 
Q. 


0 


o 

o. 


0 

ö) 

0 

£ 

O 

0 

Ui 

o 

(0 











































































Ein Abonnement 
ist praktisch und gewährt 
zusätzlich noch Preisvorteile. 

PC Amstrad International kostet im Abonnement: 


Im Inland bzw. West-Berlin: 6 Ausg. = 

12 Ausg. = 

Im europäischen Ausland: 6 Ausg. = 

12 Ausg. = 

Im außereuropäischen Ausland: 6 Ausg. = 


30,- DM 
60,- DM 

45,- DM 
90,- DM 

60,- DM 


12 Ausg. = 120,- DM 


Widerrufsrecht: 

Wir garantieren jedem 
Abonnenten das 
Recht, seine Bestel¬ 
lung innerhalb einer 
Woche nach Abschluß 
schriftlich zu widerru¬ 
fen. Die rechtzeitige 
Absendung des Wider¬ 
rufschreibens genügt 
zur Fristwahrung. 


Bitte benutzen Sie 
die Bestellkarte. 


UedtanTerUj 

DMV-Verlag Postfach 250 ^440 Eschwege 


ENI 

Lesespaß 

mit Preisvorteil 
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- DIRDOC - J 
(c) 1988 by NoPi 
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0 DIRDOC .BAS 
0 DIRDOC .1X1 
0 DIRDOC .BAK 
0 DIRDOC .PRN 
0 DIRDOC .L02 
0 DIRDOC .ASM 
8 DIRDOC .BAK 
8 DIRDOC .ASC 
0 öIRDOC .ASC 
0 ÖIRDOC .PRO 
0 DIRDOC .CPM 


lllinUNIIUIIIimillBIIIIIUIIHIIIIIIIIIIIIIIIIIUIIilllllllUliBIII 


nimiiiiiiiiininiiiiiiiiiiiiiiRiiimH 


Uorherige Seite 
Usernunner ändern 
Dateinanen ändern 
Datei zurückholen 
Directory speichern 
LHVDisk wechseln 
Progrann beenden 


IIIHIIIlIHHimillllllHIIIIIIIIIIIR 


Modus auswählen 

und mmsi 


lllllllllllltilHHHIIHNIlDIIIIIIII 


Manipulation 

Directory-Einträge nach Belieben 
verändern 

Zuerst gab es den Diskettenmonitor, jenes Programm, mit dem man sich die 
Bytes auf der Diskette anschauen und nach Belieben manipulieren kann. 

Ein nützliches Werkzeug, wenn Aulbau der Diskette, Begriffe wie Sektor 
und Spur, logische und physikalische Sektorgröße und -nummer keine Un¬ 
bekannten sind. Die Bedienung jedoch ist häufig umständlich, die von der 
Diskette gelesenen Informationen werden meist in 128-Byte-Abschnitte auf¬ 
geteilt und dem Benutzer auf dem Bildschirm angezeigt. 


Auch wir nennen ein solches Pro¬ 
gramm unser eigen, benutzt wurde es 
jedoch in den meisten Fällen nur dazu, 
irrtümlich gelöschte Programme oder 
Dateien wieder zurückzuholen, das 
heißt, die vom CP/M-Betriebssystem 
im Directory, dem Inhaltsverzeichnis 
der Diskette, gesetzten Löschmarken 
wieder in gültige Benutzemummern 
umzuwandeln. 

Um diese und ähnliche Aufgaben we¬ 
sentlich einfacher zu erledigen, gibt es 
nun dieses Programm. 

Wie schon erwähnt, kann DIRDOC 
aber noch mehr als nur gelöschte Da¬ 
teien wieder 'erwecken’, auch Ände¬ 
rungen der Dateinamen beziehungs¬ 
weise der Benutzernummern sind mög¬ 
lich. 

Um DIRDOC zu benutzen, braucht 
man keine Detailkenntnisse über den 
Aufbau oder das Format der Disketten 
(also auch für 'Neulinge’ geeignet!). 
Bei der Programmierung war es auch 


besonders wichtig, daß die Bedienung 
einfach und übersichtlich bleibt. 

Alle Programmfunktionen werden 
über Balkencursor augewählt oder di¬ 
rekt über ein Info-Fenster abgefragt, so 
daß auch der noch nicht so 'erfahrene' 
JOYCE-PCW-Besitzer dieses Pro¬ 
gramm benutzen kann. 

Aus diesem Grunde wurde DIRDOC 
auch in MALLARD-BASIC geschrie¬ 
ben. In einer anderen Hochsprache 
(zum Beispiel TURBO PASCAL) wäre 


vielleicht eine Steigerung der Ge¬ 
schwindigkeit möglich gewesen, aber 
MALLARD-BASIC gehört zum Lie¬ 
ferumfang der PCW-Rechner, und da¬ 
mit entfallt der Kauf eines eventuell 
kostspieligen Compilers. 

Selbstbedienung 

Der Bildschirm von DIRDOC ist in 
drei Hauptbereiche (Fenster) einge¬ 
teilt, dem Directoryfenster, dem Me¬ 
nüfenster und dem oben schon erwähn¬ 
ten Informationsfenster. 

Das Directoryfenster zeigt Ihnen, wie 
der Name schon vermuten läßt, welche 
Directory-Einträge sich auf Ihrer Dis¬ 
kette befinden,eingeteilt in 'Seiten' zu 
je 32 Einträgen. Angezeigt werden je¬ 
weils Benutzernummer (USER), Da¬ 
teiname und -typ (FILENAME). Ge¬ 
löschte Dateien sind mit dem Kürzel 
DEL (für DELeted) gekennzeichnet. 
Ein Directory-Eintrag besteht ja ei¬ 
gentlich aus insgesamt 32 Bytes und 
enthält neben der Benutzernummer und 
dem Dateinamen auch noch zusätzliche 
Informationen darüber, wo die Datei 
auf der Diskette abgespeichert ist, wel¬ 
che Größe sie hat, welche Attribute ihr 
zugeordnet sind und so weiter. Diese 
Informationen werden nicht mit ange¬ 
zeigt, sondern, sofern notwendig, von 
DIRDOC intern verarbeitet. Die Aus¬ 
wahl eines Directory-Eintrags, sei es, 
um ihn zu ändern oder ihn zurückzuho¬ 
len, geschieht, wie schon gesagt, über 
einen Balkencursor (wie von LOCO- 
SCRIPT gewohnt) und wird über die 
Cursortasten gesteuert. 

Das Menüfenster, mit dem Titel 'MO¬ 
DUS', bietet die Auswahl der einzel¬ 
nen Operationsmodi. Diese Auswahl 
erfolgt ebenfalls mit Balkencursor über 
die Cursortasten. Folgende Operatio¬ 
nen stehen zur Wahl: 

— Nächste Seite/Vorherige Seite 

Hier haben Sie die Möglichkeit, durch 
das Directory zu 'blättern' wie in ei- 


Abbl: Das Maschi¬ 
nenprogramm fllr die 
Disketten zug riffe 


LD 

A,AREG 

{Register laden 

LD 

BC,BCREG 

LD 

DE,DEREG 


LD 

HL,HLREG 


LD 

IX,IXREG 


CALL 

0FC5AH 

;XBIOS aufrufen 

DEFV 

FUNCT 

;und Funktion ausführen 

PUSH 

AF 

{Fehlercode von AF nach 

POP 

HL 

;HL übertragen und in der 

LD 

(FEHL),HL 

{Fehleradresse abspeichern 

RET 


;danach zurück 
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Software für CPC und Joyce 


nem Buch, wobei jeweils 32 Einträge 
pro Seite angezeigt werden (sofern vor¬ 
handen). Das Ende des Directory, 
wenn keine Einträge mehr vorhanden 
sind, wird im Info-Fenster angezeigt. 
Oberhalb des Directoryfensters wird 
Ihnen, neben dem Laufwerk, auch die 
Seitennummer mitgeteilt, die gerade 
angezeigt wird. 

- Usernummer ändern 

Nachdem Sie den entsprechenden Di¬ 
rectory-Eintrag ausgewählt haben, 
werden Sie aufgefordert, eine neue Be¬ 
nutzernummer einzugeben. Fehler bei 
den Eingaben werden vom Programm 
abgefangen und entsprechend verarbei¬ 
tet beziehungsweise angezeigt. Mit 
dieser Option läßt sich sehr schnell eine 
Datei (oder Programm) in einen ande¬ 
ren Benutzerbereich übertragen (sonst 
nur mit PIP oder LOCOSCRIPT mög¬ 
lich). 

- Dateinamen ändern 

Auch hier werden Sie zunächst aufge¬ 
fordert den Directory-Eintrag, den Sie 
ändern wollen, auszuwählen. Danach 
geben Sie den neuen Dateinamen ein. 
Erlaubt sind alle vom CP/M-Betriebs- 
system zugelassenen Dateinamen, 
eventuelle Fehleingaben werden wie¬ 
der vom Programm abgefangen und 
angezeigt. 

- Datei zurückholen 

Mit dieser Option können Sie gelöschte 
Dateien wieder aktivieren. Dabei kön¬ 
nen Sie außerdem wählen, ob das Pro¬ 
gramm lediglich die Löschmarkierung 
entfernen soll oder zusätzlich überprü¬ 
fen soll, ob die Datei noch vollständig 
vorhanden ist. Dies kann zum Beispiel 
notwendig sein, wenn die gewünschte 
Datei schon über einen längeren Zeit¬ 
raum gelöscht war und das Betriebssy¬ 
stem die ursprünglich belegten Daten¬ 
blöcke schon einer anderen Datei zuge¬ 
wiesen hat. Allerdings kann dies, je 
nach Umfang des Directorys und Grö¬ 
ße der Datei, schon etwas dauern, bis 
jeder Eintrag durchsucht wurde. 

- Directory speichern 

Bei Auswahl dieser Option werden 
sämtliche Directory-Änderungen, die 
Sie bisher nur im Speicher des Rech¬ 
ners vorgenommen haben, als neues 
Directory auf der Diskette gespeichert. 


Eine Sicherheitsabfrage verhindert 
hier Fehlbedienung. 

— Diskette (LW-/Disk) wechseln 

Dieser Menüpunkt erlaubt es Ihnen, je 
nach Gerätekonfiguration den Wechsel 
von Disketten bzw. ein Umschalten 
zwischen den Laufwerken. Nach je¬ 
dem Wechsel wird automatisch das 

neue Directory eingelesen. 

» 

— Programm beenden 

Diese Option bedarf keiner Erläute¬ 
rung. Eine zusätzliche Abfrage erlaubt 
Ihnen hier noch einmal das Abspei¬ 
chern des Directory (sollten Sie dies 
vergessen haben). 

Das Informationsfenster ermöglicht Ih¬ 
nen, wie oben schon aufgeführt, je 
nach Operation, die Kommunikation 
mit DIRDOC. Fehlermeldungen, Zu¬ 
satzabfragen und Programm-Info wer¬ 
den hier angezeigt. 

Fehlermeldungen 


Bei der Arbeit mit DIRDOC können 
folgende Fehlermeldungen ausgegeben 
werden: 

Nicht genug Speicher! Programm ab¬ 
gebrochen. 

— Bei der Initialisierung des Pro¬ 
gramms wurde festgestellt, daß nicht 
genug Speicherplatz für DIRDOC zur 
Verfügung steht. Dies kann passieren, 
wenn Sie zum Beispiel noch aktive 
RSX-Programme im Speicher haben. 

Laufwerk nicht bereit! 

— Im angewählten Laufwerk befindet 
sich keine Diskette. 

Disk I/O-Fehler! 

— Hier sind mehrere Ursachen mög¬ 
lich: Sie haben die Diskette gewechselt 
und die entsprechende Option nicht ge¬ 
wählt, Ihre Diskette ist schreibge¬ 
schützt, oder es ist beim Lesen ein Feh¬ 
ler (Datenfehler) aufgetreten. 

Datei kann nicht mehr aktiviert wer¬ 
den! 

— Die Datenblöcke der Datei, die Sie 
zurückholen wollen, sind schon von ei¬ 
ner anderen Datei belegt. 


Preiswerte Software für Amstrad-CPC und 
Joyce mit deutschen Handbuch - so machen 
diese Super-Programme richtig Spaß! 

WS TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungen erfahren haben! 
Endlich können Sie Dateien per Cursor¬ 
tasten auswählen, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Befehle definieren, Textlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien ansehen, drucken ohne zwischen¬ 
zuspeichern, stets freie Diskettenkapazi¬ 
tät und Textlänge ermitteln und, und, und ... 

Nur DM 49j80 

(unverbindliche Preisempfehlung) 

Großes Buch der Public Domain-Software 

Alles was Sie über deutsche PD-Software 
wissen müssen, finden Sie in diesem Buch. 
Zusätzlich die deutschen Dokumentationen 
zu den Disks 1-6, 8 und 10-12. Ideale Fund¬ 
grube für Computerterfans! Mit Rabattcou¬ 
pons für unsere Software! Nur DM 34,80 

Neu: Diskette 18 - MacroPack/Z80 

Assemblerprogrammierung für Einsteiger 
und Profis - Z80-Makroassembler mit fink¬ 
fähigem Code, Linker, Debugger und Editor. 

1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Assembler, Linker, Debugger 

4- Compiler Small-C: Fließkommazahlen * 

5- Forth-83: Multitasking, Assembler ... 

6- Utilities: Diskmonitor, Dateiretter ... 

10- BizBasic - CPC-Basic-Erweiterung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 
15- WordStar-Utilities: Fußnoten, Index * 

17- C-Interpreter - interaktiv C lernen * 

19- Telekommunikation mit MEX 

* auf dem CPC-464/664 nur mit Speicher¬ 
erweiterung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfehlung) 

Unser Kombi-Angebot: 

Eine beliebige der obigen Disketten 1-19 
und neun 3-Zoll-Disketten von Maxell für 
nur 79 Mark! Oder: WS-TUNER und neun 

3- Zöller von Maxell für nur DM 99,80! 

3-Zoll oder Vortex-Format. Lieferung per 
Nachnahme oder Vorauskasse, Ausland: 
nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9, 8500 Nürnberg 90 
Telefon 09 11/30 33 33 

Weitere Bezugsquellen: 

Firma Simon, 4600 Dortmund 1, Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 


136/1625 

'3246 

12/58040 
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NEU: 

Heißer Draht 

jetzt 

mit Durchwahl! 



Haben Sie Fragen, die nicht 
warten können? Dann rufen 
Sie uns an! Unser Leser- 
Telefonservice steht Ihnen 

jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redak¬ 
teur jetzt direkt unter einer 
Durchwahlnummer. Auf 
Ihren Anruf freuen sich: 


Claus Daschner 
(CPC Software) 

(0 56 51) 80 09 - 16 


Jürgen Borngießer 
(CPC Hardware) 

(0 56 51) 80 09 - 17 


Ralf Schößler (PCW) 
Michael Ebbrecht (PCW, PC) 

(0 56 51) 8009 - 18 


Achtung: Die in früheren 
Heften veröffentlichte Sam¬ 
melnummer ist ab sofort un¬ 
gültig - diese Nummer bit¬ 
te nicht mehr anwählen! 


I—JOYCE 


Illegal, Datei ist bereits aktiviert! 

— Sie haben versucht, eine noch nicht 
gelöschte Datei zurückzuholen. 

Illegal, bitte zuerst Datei zurückholen! 

— Sie haben versucht, einen gelöschten 
Directory-Eintrag zu ändern 

Illegal, Dateiname schon vorhanden! 

— Eine Datei gleichen Namens ist 
schon im aktuellen oder gewünschten 
Benutzerbereich vorhanden. 

Dateiname ungültig! 

— Sie haben einen Dateinamen einge¬ 
geben, der vom CP/M-System nicht 
akzeptiert wird. 

Keine weiteren Directory-Einträge! 

— Das Ende des Directorys Ihrer Dis¬ 
kette ist erreicht. 

Für Insider 

Nun sollte aber doch, obwohl für die 
Anwendung des Programms nur sehr 
wenige Vorkenntnisse benötigt wer¬ 
den, etwas ins 'Eingemachte’, sprich: 
Listing, gegangen werden. 

Da sind zunächst einmal die Disketten¬ 
zugriffe. Diese werden direkt über das 
XBIOS ausgeführt. Hierzu wird ein 
kleines Maschinenprogramm benutzt 
(Abb. 1), welches während der Initiali¬ 
sierung in den Speicher ’gepoked’ und 
über die Variable “mp“ aufgerufen 
wird, nachdem es entsprechend der je¬ 
weiligen Operation modifiziert wurde. 

Benutzt werden die XBIOS-Funktio- 

nen DD_LOGIN (#6), 

DD_READ_SECTOR (#2) und 

DD_WRITE_SECTOR (#3, vergl. 

auch JOYCE SH 1/87, XBIOS - Im 
Herzen von CP/M PLUS). 

Die für die einzelnen Funktionen benö¬ 
tigten Parameter werden jeweils vor 
dem Aufruf an das Maschinenpro¬ 
gramm übergeben. Die Daten für das 
Directory werden aus dem XDPB (eX- 
tended Disk Parameter Block) über¬ 
nommen und das komplette Directory 


in einen Puffer eingelesen. Dieser Puf¬ 
fer ist für max. 256 Einträge dimensio¬ 
niert und kann bei Bedarf eventuell 
vergrößert oder verkleinert werden. 
Alle Änderungen, die Sie während der 
Arbeit mit DIRDOC am Directory vor¬ 
nehmen, werden zunächst in diesem 
Puffer durchgeführt und erst nach 
Wahl der ’Speichern’-Option auf die 
Diskette übertragen. Das Maschinen¬ 
programm wird aber auch noch für an¬ 
dere Zwecke benutzt, nämlich zur Er¬ 
zeugung verschiedener Hintergrund¬ 
muster und zum Erfragen der Lauf¬ 
werkskonfiguration. Die Anzahl der 
Laufwerke wird über die XBIOS- 

Funktion CD_INFO (#34) erfragt 

und bestimmt den Ablauf der Operatio¬ 
nen zur Auswahl bzw. zum Wechsel 
des Laufwerks. 

Die Erzeugung des Hintergrundmu¬ 
sters ist eine vereinfachte Version des 
Programms ’JOYCOLOR’ (vergl. 
JOYCE SH 2/88). Hier wird über das 
XBIOS das Byte zum Löschen des 
Bildschirms (normalerweise ’0’) durch 
ein entsprechendes ’Farbbyte’ ersetzt. 
Dies wirkt übrigens besonders gut, 
wenn Sie vor dem Start des Programms 
den Bildschirmhintergrund mit dem 
CP/M-Dienstprogramm PALETTE 
hell geschaltet haben. 

Das Programm DIRDOC wurde unter 
CP/M PLUS Vers. 1.4 (J14GCPM3.EMS) 
programmiert und ist unter dieser Ver¬ 
sion lauffähig. Falls Sie eine andere 
CP/M-Version benutzen, muß die 
Routine zur Erzeugung des Hinter¬ 
grundmusters eventuell angepaßt be¬ 
ziehungsweise übersprungen werden. 
Sie können dies ohne große Programm¬ 
änderungen erreichen, indem Sie die 
Zeile 3990 durch folgende Zeile er¬ 
setzen: 

3990 RETURN 

Damit bleibt der Hintergrund dann 
eben 'einfarbig’. 

(Norbert Finke/rs) 


Dieses Programm ist in Mallard-Basic ge¬ 
schrieben. Nach dem Ein geben sollte es zu¬ 
erst mit SAVE" DIRDOC. BAS" < RE¬ 
TURN > abgespeichert werden. Später kann 
es dann unter CP/M+ mit A > BASIC DIR¬ 
DOC < RETURN > und unter BASIC mit 
RUN"DIRDOC.BAS“ <RETURN> gestar¬ 
tet werden. 
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<11> 

< 3 7 > 

< 6 1 > 

< 15 > 

< 7 8 > 

< 26 > 
<11> 

< 96 > 

< 38 > 

< 82 > 
< 68 > 
< 1 6 > 
< 20 > 
<22 > 

< 29 > 

< 0 > 

< 5 2 > 

< 78 > 

< 61 > 
<95 > 

< 9 4 > 

< 17> 

< 90 > 
<81 > 

< 9 1 > 

< 9 6 > 

< 32 > 

< 36> 

< 6 7 > 

< 42 > 

< 90 > 

< 58 > 

< 23 > 

< 15> 

< 59 > 

< 31 > 

< 98 > 

< 86 > 

< 51 > 

< 34 > 

< 1 9 > 

< 6 > 

< 25 > 

< 1 8 > 

< 9 > 

< 9 7 > 

< 6 7 > 

< 32 > 

< 4 1 > 

< 5 > 

< 5 6 > 

< 65 > 

< 16> 

< 45 > 

< 62 > 

< 36 > 

< 89 > 

< 42 > 

< 3 7 > 

< 7 4 > 

< 36 > 

< 1 3 > 

< 72 > 

< 70) 

< 85 > 

< 25 > 

< 12 ) 
< 5 6 > 


< 11) 

< 41 > 
<10> 

< 6 > 

< 1 7 > 

< 78> 

< 3 7 > 

< 55 > 

< 43 > 

< 78) 

< 1 7 > 

< 74) 

< 22 > 

< 9 3 > 
<51 > 

< 40 > 

< 79) 

< 0 > 
<82 > 
< 1> 
< 22 > 
< 63 > 


. DIRDOC.BAS. * 

Änderungen des Disketten-Dfrectorys .. . * 

. unter MALLARD-BASIC. * 

. wrltten 1988 by NoFi. * 


1000 
1010 
1020 
1030 
1040 
1050 

1060 WIDTH 255:OPTION RUN 

1070 GOSUB 3100:. ‘Parameter init 

1080 GOSUB 3750:. 'Bi 1dschirm-Layout zeichnen 

1090 my=3 : d r i ve*=0 :. 'Default-Laufwerk = A 

1100 IF drlveB THEN GOSUB 2450 ELSE GOSUB 2520 

1110 -* 

1120 . MENUE-BEARBEITUNG. * 

1130 -* 

1140 PRINT FNwcl$(9,3, 1) "Modus auswählen'' 

1150 PRINT FNat$(5,2)"und ”FNinv$(">ENTER<")wi$(5 ) 
1160 erlaubt$=up$+dwn$+ret$:GOSUB 1240:G0SUB 3030 
1170 IF eingabe=3 THEN o=my-2:GOSUB 1260:G0T0 1140 
1180 ON eingabe GOSUB 1200,1220:GOTO 1160 

1190 '*-Menue-Cursor nach oben-* 

1200 IF my=3 THEN RETURN ELSE r=-l:GOTO 1230 

1210 '*-Menue-Cursor nach unten-* 

1220 IF my=10 THEN RETURN ELSE r=l 

1230 PRINT FNat$(1,my)men$(my-2):my=my+r 

1240 PRINT FNat$(l,my)FN1nv$(men$(my-2)):RETURN 

1250 ' *-Menue-Auswahl treffen-* 

1260 ON o GOTO 1350,1380,1430,1580,1770,2660,2450 

1270 '*---* 

1280 *. PROGRAMM BEENDEN. * 

1290 '*-* 

1300 GOSUB 2660:MEMORY oldmem:RESET 

1310 PRINT FNwc1t(7,0,0)curon$cron$staton$:END 

1320 '*-* 

1330 '*. DIRECTORY-SEITEN ANZEIGEN.... * 

1340 '*-nächste Seite- * 

1350 IF FNdirend(pptr(pgX+1))THEN 4430 
1360 pg%=pgX+l:ptr=pptr(pgX):GOTO 2830 

1370 '*-vorherige Seite-* 

1380 IF pgX=l THEN RETURN 

1390 pg*=pgx-l:ptr=pptr(pgX):GOTO 2830 

1400 '*-* 

1410 . USERNUMMER ÄNDERN. * 

1420 '*-- 

1430 subj $="neue Usernummer?GOSUB 1930 

1440 IF o.k THEN PRINT FNat$(18,0); ELSE RETURN 

1450 erlaubt$="0123456789"+ret$+can$: u$="0" 

1460 GOSUB 3030:ON ABS(eingabe-13)GOTO 4360,1500 
1470 u$=RIGHT$(u$+a$,2):user=VAL(u$) 

1480 IF user >15 THEN PRINT CHR$(7 ) ; :u$ ="00" 

1490 PRINT FNat$(18,0)u$;:GOTO 1460 

1500 GOSUB 2000:GOSUB 2980:d1r$ = a$:temp=PEEK(ptr ) 

1510 ptr=buf.Adr:GOSUB 2030:IF found THEN 4310 

1520 SWAP user,temp:ptr=buf.Adr:GOSUB 2030 

1530 WHILE found:P0KE ptr,temp:GOSUB 2030:WEND 

1540 GOTO 4360 

1550 ’*-* 

1560 ’*. DATEINAMEN ÄNDERN. * 

1570 '*-* 

1580 subj$="neuer Dateiname?GOSUB 1930 
1590 IF NOT o.k THEN RETURN 

1600 PRINT wi$(5)FNat$(1,12)"Abbruch: nur >ENTER<" 
1610 PRINT wi$(9)FNat$(l,l)es$+"K"FN1nv$(“>"); 

1620 INPUT;'"',a$: IF a$='"‘ THEN 4360 

1630 ON ERROR GOTO 4390 

1640 a$=UPPER$(a$):b$=FIND$("M:" + a$) 

1650 IF INSTR(a$,"*")OR INSTR(a$,"?")THEN ERROR 64 
1660 ON ERROR GOTO 0:i=INSTR(a$,".") 

1670 IF i THEN dir$=LEFT$(LEFT$(a$, 1-1)+SPACE$(8) , 
8)+LEFT$(MID$(a$,1+1)+SPACE$(3),3)ELSE dir$=SPACE$ 
(11):LSET dir$=a$ 

1680 GOSUB 2000:user=PEEK(ptr):ptr=buf.Adr 

1690 GOSUB 2030:IF found THEN 4310 

1700 GOSUB 2980:ptr=buf.Adr:temp$=dir$:dir$=a$ 

1710 GOSUB 2030:WHILE found:FOR 1=1 TO 11 
1720 POKE ptr+i,ASC(MID$(temp$,i)):NEXT 
1730 GOSUB 2030:WEND:GOTO 4360 

1740 '*-* 

1750 '*. DATEI ZURÜCKHOLEN. * 

1760 '*-* 

1770 GOSU8 2200:IF e1ngabe=6 THEN 4360 

1780 IF PEEK(ptr)<>229 THEN 4220 ELSE user=0 

1790 PRINT FNwc1 $(9,1,1)"Be 1egung der Daten-" 

1800 PRINT FNat$(1,2)"blöcke prüfen (J/N)?” 

1810 PRINT FNat$(10,3)curon$"> N"CHR$(8); 

1820 er 1aubt$="JN" + ret$ + can$:GOSUB 3030 
1630 ON eingabe-1 GOTO 1500,1500,4360 
1840 GOSUB 2000:GOSUB 2980:dir$=a$:GOSUB 2030 
1850 IF found THEN 4310 ELSE user=229:GOSUB 2030 
1860 WHILE found:temp=ptr:temp$=" " 

1870 FOR 1=pt r+16 TO ptr + 31 

1880 temp$=temp$+CHR$(PEEK(1)):NEXT 

1890 GOSUB 2080:IF found THEN GOTO 4250 
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< 1) 

1900 

< 4 6 > 

1910 

< 78) 

1920 

< 70) 

1930 

<81 > 

1940 

< 5 > 

1950 

< 6 4 > 

1960 

< 89 > 

1970 

< 5 > 

1980 

< 32 > 

1990 

< 80 > 

2000 

< 44 > 

2010 

< 1 7 > 

2020 

< 19) 

2030 

< 95 > 

2040 
EN f< 

< 45 > 

2050 

< 66 > 

2060 

< 88 > 

2070 

< 88 > 

2080 

< 80 > 

2090 

< 62 > 

2100 

< 68 > 

2110 
Int. f 

< 8 6 > 

2120 

< 72 > 

2130 

< 9 7 > 

2140 

< 78 > 

2150 

< 62 > 

2160 

< 35 > 

2170 

< 4 4 > 

2180 

< 4 1 > 

2190 

< 18 > 

2200 

< 28 > 

2210 

< 63 > 

2220 

< 41 > 

2230 

< 82 > 

2240 

< 1> 

2250 

<42 > 

2260 

< 50 > 

2270 

0 

< 81 > 

2280 

< 1 > 

2290 

< 32 > 

2300 

< 66 > 

2310 

< 58 > 

2320 

< 5 1 > 

2330 

< 72 > 

2340 

< 7 7 > 

2350 

< 9 4 > 

2360 

< 5 8 > 

2370 

< 5 6 > 

2380 

< 17) 

2390 

< 28 > 

2400 

< 90 > 

2410 

< 2 6 > 

2420 

< 7) 

2430 

< 32 > 

2440 

< 88 > 

2450 

< 2 1 > 

2460 

< 76) 

2470 

< 60 > 

2480 

<11> 

2490 

< 59 > 

2500 

< 2 4 > 

2510 

< 91 > 

2520 

< 7 7 > 

2530 

< 33 > 

2540 

< 6 6 > 

2550 

< 6 > 

2560 

<52 > 

2570 

< 8 > 

2580 

< 50 > 

2590 

< 71) 

2600 

< 33 > 

2610 

< 7) 

2620 

< 3 3 > 

2630 

< 12 ) 

2640 

< 39 > 

2650 

< 4 5 > 

2660 
" ) c a n 

< 1 7 > 

2670 

< 40 > 

2680 

< 68 > 

2690 

< 3 > 

2700 

< 77) 

2710 

< 1 ) 

2720 

< 62 > 

2730 

< 5 > 

2740 

< 8 6 > 

2750 

< 45 > 

2760 

< 32 > 

2770 


Infotext ausgeben 


"Bitte warten' 


Fi1ename prüfen 


Blockbelegung prüfen 


'*. DIRECTORY-EINTRAG AUSWÄHLEN. * 

• *-* 


Cursorfeld nach oben-* 


y=15:w=0:GOTO 2390 ELSE 2400 
■ Cursorfeld nach unten -* 


Cursorfeld nach rechts -* 


Cursorfeld nach links -* 
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< 50 > 2780 WEND 

< 5> 2790 pgX=l:ptr=buf.Adr 

< 28 > 2800 •*-* 

< 6 7 > 2810 '*. Directory anzeigen. * 

< 34 > 2820 '*-* 

<86 > 2830 PRINT wi$(3)FNat$(22,1)FN1nv$(CHR$(dr1ve% +65 ) 

+": " ) 

< 7 5 > 2840 PRINT FNat$(31,1)FNinv$(DEC$(pg*,"###")) 

< 7 > 2850 PRINT FNwcl$(1,0,0)FNwc1 $(0,0,0):pptr(pgX) = pt 

r: w=0 

< 34 > 2860 y = 0:FOR ptr = ptr TO fehl STEP 32 

< 79 > 2870 IF FNdirend(ptr)THEN 4430 

< 25 > 2880 IF FN va 1id(ptr)THEN GOSUB 2930:dptr(w,y) = ptr: 

y = y+l 

< 28 > 2890 IF y <16 THEN NEXT ELSE ptr = ptr + 32 

< 34 > 2900 IF w = 0 THEN w=l:PRINT w1$(w):G0T0 2860 

< 42 > 2910 pptr(pgX+1)=ptr:RETURN 

< 46 > 2920 '*-DI R-E Intrag anzeigen-* 

< 78 > 2930 u$ = DEC$(PEEK(ptr),"###"):IF u$="229"THEN u$=" 

DEL" 

< 25 > 2940 GOSUB 2980:PRINT FNat$(0,y); 

< 3 6 > 2950 PRINT u$". "LEFT$(a$,8)". "STRIP$(MID$(a$,9) ) ; 

< 1 6 > 2960 RETURN 

< 74) 2970 ' *- Filename lesen-* 

< 8 7 > 2980 a$="":FOR i=l TO 11:a$=a$+CHR$(PEEK(ptr+1 ) ) 

< 70> 2990 NEXT:RETURN 

< 13 > 3000 •*-* 

< 9 7 > 3010 '*. Tastaturabf rage. * 

< 19 > 3020 '*-* 

< 66 > 3030 a$=INKEY$:IF a$= M " GOTO 3030 

< 89 > 3040 a$ = UPPER$(a$):eingabe=INSTR (er 1aubt$.a$ ) 

< 48 > 3050 IF e 1 ngabe = 0 THEN PRINT CHR$(7) ; :GOTO 3030 

< 98 > 3060 RETURN 

< 34 > 3070 '*-* 

< 4 2 > 3080 ’*. Initialisierung. * 

< 40 > 3090 '*-* 

< 48 > 3100 oldmem=HIMEM: ’Speleher-Obergrenze sichern 

< 39 > 3110 MEMORY HIMEM-27:Xdpb=HIMEM+1: 'PIatz für XDPB 

< 72 > 3120 IF HIMEMC&HCOOO GOTO 3700: 'nicht genug Memory 

< 73> 3130 MEMORY HIMEM-2:fehl=HIMEM+1. 'Feh1eradresse 

< 63 > 3140 bufln=&H2000:MEMORY HIMEM-buf1n: 1 sector-Buff 

< 49 > 3150 bu f.Ad r = HIMEM+1 

< 81> 3160 MEMORY HIMEM-26:mp = HIMEM+1: 'Maschlnen-Progr. 

< 73> 3170 DIM pptr(16),dptr(1,15) 

< 94 > 3180 DEF FNInt.PeekX(A)=UNT(PEEK(A+1)*256+PEEK(A)) 

< 6 7 > 3190 DEF FNfeh1er=(PEEK(feh 1)AND 1)-1 

< 50 > 3200 DEF FNLO(word)=ASC(MKI $(UNT(word))) 

< 59 > 3210 DEF FNHI(word)=ASC(MI 0$(MKI$(UNT(word)) ,2)) 

< 75 > 3220 DEF FNva11d(A) = (PEEK(A)=229 OR PEEK(A)<16)AND 

PEEK(A+12)=0 

< 7 > 3230 DEF FNd1rend(A)=PEEK(A)=PEEK(A+1)OR (PEEK(A) = 

229 AND PEEK(A+l) = 0)OR(A> = fehl ) 

<93> 3240 RESTORE 3550:F0R 1=0 TO 25:READ a$ 

< 34 > 3250 POKE mp+i,VAL("&H" + a$):NEXT 

< 31> 3260 POKE mp+23,FNLO(feh 1 ):POKE mp + 24,FNHI(fehl ) 

<20> 3270 POKE mp+13,FNLO(Xdpb):POKE mp+14,FNHI(Xdpb) 

< 31> 3280 true = -l:false = 0 

< 71 > 3290 '*-Bl Idschi rmsteuerung-* 

< 98 > 3300 es$=CHR$(27):curon$=es$+"e":curoff$=es$+“f" 

< 75 > 3310 cls$ = es$+"E"+es$+"H":statoff$ = es$+"0" 

< 79 > 3320 staton$ = es$ + "1":croff$ = es$+"w":cron$ = es$+"v" 

< 71> 3330 1nvon$=es$+"p":1nvoff$=es$+"q " 

< 40 > 3340 up$ = CHR$(31):dwn$ = CHR$(30):rgt$ = CHR$(6) 

<14 > 3350 1 ft$ = CHR$(1):ret$ = CHR$(13):can$ = CHR$(8) 

< 60 > 3360 DEF FNw$(x , y , H , 8)=es$+"X"+CHR$(32 + y)+CHR$(32 + 

x)+CHR$(31+H)+CHR$(31+B):. 'Fenster definieren 

< 72 > 3370 DEF FNat$(x,y)=es$+"Y”+CHR$(32 + y)+CHR$(32 + x ) 

< 33 > 3380 DEF FNwc1 $(w,x,y)=w1 $(w)+c1s$ + FNat$(x,y) 

< 87 > 3390 DEF FN1nv$(text$)=1nvon$+text$+1nvoff$ 

< 9 7 > 3400 FOR 1=0 TO 9:.. 'Fensterkoordinaten festlegen 

< 54 > 3410 READ x,y,h(1),b( 1 ):wi $( 1 ) = FNw$(x,y,h(1 ),b(1)) 
<98> 3420 NEXT 

< 32 > 3430 '*.. Grafikzeichen..* 

< 4 4 > 3440 elo$=CHR$(150):ero$=CHR$(156):elu$ = CHR$(147 ) 

<80> 3450 eru$=CHR$(153):wl 1$ = CHR$(154):sl1$ = CHR$(149 ) 

< 74 > 3460 '*-Anzahl Laufwerke erfragen-* 

< 32 > 3470 POKE mp+18.&HE6:POKE mp+19,0:. 'XBIOS #34 

< 55 > 3480 CALL mp:IF PEEK(feh1 + 1)THEN dr1veB = true 

<19 > 3490 RESTORE 3620:. 'Menuetext inlt 

< 64> 3500 FOR 1=0 TO 9:READ a$:a=(21-LEN(a$))/2 

< 52 > 3510 men$(1)=SPACE$(a)+a$+SPACE$(a):NEXT 

< 30 > 3520 IF drlveß THEN MID$(men$(7),3,8) = "LW-/0isk" 

< 0> 3530 RETURN 

< 48 > 3540 '*-Masch 1 nen p rog ramm-* 

< 34 > 3550 DATA 3E,0.1,0,0,11,0,0,21,0,0,DD,21,0,0,CD , 5A 

< 4 > 3560 DATA FC,0,0,F5,E1,22,0,0,C9 

< 70 > 3570 '*.. Fensterkoordinaten..* 

<77> 3580 DATA 13,11,16,17,33,11.16,17,34,1,4,22,8,6,25 

< 22 > 3590 DATA 74,11,8,21,41,56,8,14,23,56,23,6,23,0,0 

< 93 > 3600 DATA 32,90,8,1,4,74,57,24,4,21 

< 2 4 > 3610 '*-Menuetext-* 

<77> 3620 DATA MODU S,Nächste Se 1 te , Vorher i ge Seite 
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< 84 > 

< 11 > 

< 4 4 > 

< 69 > 

< 46 > 

< 34> 

< 52 > 

< 75 > 

< 50 > 

< 18 > 

< 36 > 
<85 > 
<42 > 

< 71 > 

< 5 > 

< 2 5 > 
<31 > 
<21 > 

< 9 7 > 

< 58 > 

< 5 7 > 

< 48 > 

< 28 > 

< 9 2 > 

< 5 > 

< 6 > 

< 25 > 

< 14> 

< 70> 

< 9 2 > 

< 2 2 > 
< 18 > 

< 52 > 
<49> 

< 32 > 

< 55 > 

< 24 > 

< 6 1 > 

< 36 > 

< 90 > 

< 23 > 

< 9 5 > 
<29 > 

< 46 > 

< 53 > 

< 82 > 

< 13 > 

< 9 5 > 

< 8 6 > 
<22 > 

< 13> 

< 66 > 

< 44 > 

< 14> 

< 5 2 > 

< 38 > 

< 5 5 > 

< 78 > 

< 60 > 

< 77> 
<48> 

< 8 > 

< 3 > 

< 2 3 > 

< 35 > 

< 24 > 

< 60 > 
< 66 > 

< 9 7 > 

< 2 1 > 

< 64 > 

< 4 1 > 

< 32 > 

< 49 > 

< 5 1 > 

< 40 > 

< 35 > 

< 19 > 

< 51 > 

< 3 > 

< 53 > 

< 7 1 > 

< 8 > 
< 12 > 

< 72 > 

< 85 > 


3630 DATA Usernummer ändern,Date 1namem ändern 
3640 DATA Datei zurückholen,D1 reetory speichern 
3650 DATA Diskette wechse1n,Programm. beenden 
3660 DATA Abbruch mit >CAN< 

3670 '*-* 

3680 '*. Fehler: nicht genug Speicher. * 

3690 '*---* 

3700 PRINT wi$(7)c1s$curon$ 

3710 PRI NT " F e h 1 e r : Nicht genug Speicher!“ 

3720 RESET:PRINT"Programm abgebrochen!":END 

3730 '*-» 

3740 '*. 81 1 dschi rm-Layout zeichnen. * 

3750 '*-.-* 

3760 PRINT curoff$croff$statoff$es$"2"CHR$(2) 

3770 cOlorX=85:GOSUB 3990:PRINT FNwc1 $(7,0,0) 

3780 colorX=51:GOSUB 3990:w = 8:PRINT FNwc1 $(w,0,0 ) 
3790 GOSUB 4060:co1orX=255:GOSUB 3990:w=2 
3800 PRINT FNwcl$(w,0,0)1nvon$:GOSUB 4060 
3810 PRINT FNat$(6,l)"~ DIRDOC 

3820 PRINT FNat$(3,2)"(c) 1988 by NoF1"1nvoff$; 
3830 colorX=119:GOSUB 3990:w = 3:PRINT FNwc1 $(w,0,0) 
3840 GOSUB 4060:co1orX=0:GOSUB 3990:w=4 
3850 PRINT FNwc1$(w,0,0):GOSUB 4060 

3860 tltel$=wl1$+FN1nv$("USER")+w1i$+FNinv$(". FIL 
ENAME. ")+wl1$ 

3870 PRINT FNat$(0,1)CHR$(151}t1te1$CHR$(159)t1tel 
$CHR$(157) 

3880 FOR 1=2 TO 19:PRINT FNat$(20,1)CHR$(145):NEXT 
3890 w=5:PRINT FNwc1$(w,0,0):GOSUB 4060 
3900 hl$=CHR$(151)+STRING$(21,154)+CHR$(157) 

3910 PRINT FNat$(1,1)FN1nv$(men$(0))FNat$(0,2)hl $ 
3920 FOR 1 = 1 TO 8:PRINT FNat$(1 , 1+2 )men$(1 ):NEXT 
3930 PRINT FNat$(0,1+2)hl$wi$(3)FNat$(12,1); 

3940 PRINT FN1nv$(" LAUFWERK.... SEITE... ") 

3950 w=6:PRINT FNwc1$(w,0,0):GOTO 4060 

3960 '*-* 

3970 '*. Hintergrund definieren. * 

3980 '*-* 

3990 POKE mp+l,colorX:. 'Farbe eintragen 

4000 POKE mp+9,&HA5:POKE mp+10,&H15:'Löschbyte-Adr 

4010 POKE mp+18,&H25:POKE mp+19,&H12: 'Sys.-Funct. 

4020 CALL mp:RETURN 

4030 '*-* 

4040 '*. Rahmen zeichnen. * 

4050 -* 

4060 PRINT FNat$(0,0)elo$STRING$(b(w)-2,wli$)ero$ 
4070 FOR 1=1 TO h(w)-2 

4080 PRINT FNat$(0,1 )s11$FNat$(b(w)-1,1 )sl 1$ 

4090 NEXT 

4100 PRINT FNat$(0,h(w)-l)elu$STRING$(b(w)-2,wl1$) 
e ru$FNat$(1,1) 

4110 RETURN 

4120 *#-* 

4130 '*. Fehler bearbeiten. * 

4140 '*-Disk I/O Fehler -* 

4150 PRINT FNwcl$(9,2,1)CHR$(7)curon$; 

4160 f=PEEK(fehl+l) 

4170 IF f THEN PRINT"D1sk-I/O Fehler"ELSE PRINT"LW 
nicht bereit" 

4180 PRINT FNat$(2,2 ) "Abbrechen (J/N)? J"+CHR$(8); 
4190 erlaubt$="NJ"+ret$:GOSUB 3030 
4200 IF eingabe=1 THEN RETURN ELSE 1310 

4210 '*-Fl le aktiv-* 

II legal, Datei ist" 
bereits aktlvlert!":GOTO 4330 

- Eintrag belegt -* 

Datei kann nicht mehr" 

. aktiviert werden!":GOTO 4330 

- Datei nicht verfügbar -* 

Illegal, bitte zuerst" 

Datei zu rückholen!":GOTO 4330 

4300 '*- Dateiname schon vorhanden -* 

4310 tl$=" Illegal, Dateiname" 

4320 t2$=". schon vorhanden!" 

4330 PRINT FNwcl$(9,0,l)tl$FNat$(0,2)t2$CHR$(7) 
4340 GOSUB 4470 

4350 '*- Operation Abbrechen/Beenden -* 

4360 PRINT w1$(5)FNat$(1,12)SPC(21)w1$(w)curOff$ 
4370 ptr=dptr(w,y):o.k=false:GOTO 2930 

4380 '*- Dateiname ungültig - * 

4390 IF ERR0 64 THEN ON ERROR GOTO 0 

4400 PRINT FNat$(1,1)FN1nv$("Dateiname ungültig"); 

4410 PRINT CHR$(7); :GOSUB 4470:RESUME 1610 

4420 '*-Directory-Ende-* 

4430 pptr(pgX+l)=ptr:PRINT FNwc1 $(9,1,1); 

4440 PRINT"Keine ";:IF dir* THEN PRINT"we1teren" 
4450 PRINT FNat$(l,2)"DIRECTORY-E1nträge"CHR$(7) 

4460 '*-Delay erzeugen-* 

4470 FOR 1=0 TO 4000:NEXT:RETURN 

4480 *-* 


4220 tl$=' 
4230 t2$ 
4240 

4250 tl$=' 
4260 t2$=' 
4270 
4280 tl$=' 
4290 t2$=' 
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DMV braucht Platz für neue Ideen - darum müssen wir unsere Lager räumen. 

Allen JOYCE-Besitzem machen wir deshalb ein einmaliges Angebot: 

JOYCE Sonderheft 2 und Sonderheft 3 sind ab sofort im Kombi-Pack zum Preis von 20,- DM beim Verlag zu beziehen. 
- Sie sparen 50% gegenüber dem Einzelpreis! 

JOYCE Sonderhefte sind Sonderpublikationen der PC AMSTRAD International und bieten jeweils auf 120 Seiten 
ausschließlich erstmalig veröffentlichte Beiträge, Tips und Tricks zu PCW 8256, 8512 und 9512. 

Außerdem gibt es zu jedem JOYCE Sonderheft eine Databox, die alle im Heft veröffentlichten Programme lauffähig 
auf zwei 3“-Disketten enthält. Die Databox ist nicht im Frühlingsaktions-Preis Inbegriffen. 


Aus dem Inhalt 
JOYCE Sonderheft 2: 

Programme: 

Adreßverwaltung 

Archivprogramm (Video-oder Literaturverwaltung) 
PASCAL-Compiler in BASIC 
Suburbia (Spiel ähnlich Monopoly (R)) 
Turbo-PASCAL-Grafikroutinen ohne GSX 
Komfortable Balkengrafik 
Tips: 

JOYCE-Zweitlaufwerk selbst anschließen 
3-D-Plotter 

Etikettendruckprogramm 
Ordnung aut der Diskette mit LocoScript 
Funktionstasten selbst belegen 
Spaltensatz unter LocoScript 
dBase-Handbuch selbst ausdrucken 
LOGO- Funktionenzeichner 


Aus dem Inhalt 
JOYCE Sonderheft 3: 

Programme: 

Vokabeltrainer 

RAM-Monitor-Speicherinhalte verändern 

Memory-Spiel 

Mini-DTP-Programm 

Drucker-Spooler unter CP/M 

Disketten-Kopierprogramm bis 43 Spuren 

Reset ohne Datenverlust 

Tips: 

Grafik auf dem JOYCE-Drucker 
Tastaturbelegung unter CP/M und 
LocoScript ändern 
Reset ohne Datenverlust 
Super-Werkzeugkiste dBase 
Grafikutilities für LOGO 


Best.-Nr. 34 


JOYCE Sonderheft 4 

Jetzt 120 Seiten! Supersoftware und Informationen. 


Aus dem Inhalt: 


20 ,- 


Strickmustergenerator 

Wordstar-Verbesserungen 

Bundesligasimulator 

Super Reaktionsspiel 

FILEMANAGER 

Pulldown-Menüs 

Stichwortverzeichnis 

Astrologieprogramm 

Diskettenmonitor 

Hauptstädte raten in LOGO 

Statuszeile für dBase und Basic 

Hardcopyroutine für 24-Nadler 

LOGO macht Schachteln 

dBase-Literaturverwaltung 

Universelles Werkzeug zur Veränderung von 

dBase-Dateien 


JOYCE Sonderheft 4 

Best.-Nr. 367 20,- DM’ 


JOYCE DATABOX Sonderheft 4 


Hier finden Sie alle Programme und Dateien 
auf vier Diskettenseiten. 

470 KB nur vom Besten... 

Und dennoch behalten wir die alten Preise bei! 

Das Leistungsverhältnis, das sich für Sie 
bezahlt macht. 

Erhältlich als 3“-Disketten für alle 
PCW 8256/8512/9512 

Diskette 1 enthält alle Programme lauffähig. 
Diskette 2 enthält die Quellcodes. 

Disk. 1: Best.-Nr. 3671 30,- DM* 

Disk. 2: Best.-Nr. 3672 24,- DM* 

Kombipack Disk. 1 und 2: 

Best.-Nr. 3673 48,- DM* 

* Unabhängig von der Anzahl der bestellten Artikel 
berechnen wir für das Inland 3,- DM bzw. für das 
Ausland 5,- DM Porto und Verpackung. 


Bitte benutzen Sie die Bestellkarte. 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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Wo ist 
Beethoven? 

Ordnung schaffen 
mit Kassetten¬ 
etiketten 

Kassettenetiketten ausdrucken ist 
für CPC- und PC-Anwender inzwi¬ 
schen schon selbstverständlich ge¬ 
worden. Daß Sie als JOYCE-PCW- 
Anwender auch in den Genuß eines 
solchen Programms kommen, ist 
daher genauso selbstverständlich 
wie die Tatsache, daß Sie mit die¬ 
sem Programm noch etwas mehr 
machen können als mit den bisher 
veröffentlichten. 

Kassettenetiketten oder besser Kasset¬ 
tenlabel braucht man immer wieder. 
Ob Sie nun die neueste Platte von Sim- 
ply Red oder eine interessante Aufnah¬ 
me von Beethoven überspielen, wenn 
Sie sich verschreiben, sieht das ganze 
Label unordentlich aus. Hier schafft 
unser Programm Abhilfe. 

Nach dem Starten des Programms ste¬ 
hen Ihnen folgende Funktionen zur 
Verfügung: 

— Kassettenlabel erstellen 

— Kassettenlabel drucken 

— Kassettenmarke wühlen 

— Ende 

Diese Funktionen werden am Bild¬ 
schirm angezeigt und können mit den 
Cursortasten angewählt werden. Die 
jeweilige Position wird hierbei invers 
dargestellt. Durch ENTER oder RE¬ 
TURN kann man nun den jeweiligen 
Menüpunkt anwählen. 


Kassettenlabel erstellen 
Als erstes wird nach dem Interpreten, 
dem Plattentitel für die erste bezie¬ 
hungsweise die zweite Seite gefragt. 
Nach einer Sicherheitsabfrage gibt 
man nun die einzelnen Titel für Seite 1 
und/oder für Seite 2 ein, welche wie¬ 
derum mit einer Sicherheitsabfrage 
beendet wird. 

Kassettenlabel drucken 
Alle bisher eingegebenen Kassettenla¬ 
bels können hier im richtigen Maßstab 
auf den Drucker ausgegeben werden. 
Alles, was man nun braucht, ist eine 
Schere und eventuell Kleber, um das 
Label auszuschneiden und gegebenen¬ 
falls auf ein älteres zu kleben. 

Kassettenmarke wählen 
Da es verschiedene Kassettenmarken 
gibt, sollten beim Überkleben der Ori¬ 
ginal-Kassettenlabels bestimmte Flä¬ 
chen freibleiben. Hierbei werden die 
gängigsten Marken, wie BASF, FUJI, 


MAXELL und TDK, unterstützt. Soll¬ 
te eine komplette Überdeckung er¬ 
wünscht sein, kann man das Einheitsla¬ 
bel wählen. 

Angewählt werden die einzelnen Punk¬ 
te durch einfaches Drücken der ent¬ 
sprechenden numerischen Taste. Der 
Menüpunkt ’Kassettenlabel speichern' 
ist bei der PCW-Version nicht unterge¬ 
bracht worden, da man ein Kassettenla¬ 
bel normalerweise sowieso nur einmal 
ausdruckt. Wozu also unnötig Disket¬ 
tenspeicherplatz verschwenden. 

(Thomas Schulte/rs) 


Dieses Programm ist in Basic geschrieben. 
Nach dem Eingeben sollte es zuerst mit 
SAVE“ KASSLAB. BAS" < RETURN > abge¬ 
speichert werden. Später kann es dann unter Ba¬ 
sic mit RUN“KASSLAB.BAS" <RETURN> 
und unter CP/M+ mit A>BASIC KASS¬ 
LAB. BAS wieder gestartet werden. 


LISTING »KASSLAB <, REMARK = >’<. 

< 8 > 10 DIM e1nzelt1tel$(2,17) 

<73> 20 escape$= CHR$(27) 

< 70 > 30 home$= escape$+ "H" 

<41> 40 cls$= escape$+ "E"+ home$ 

<89> 50 nach.rechts$= escape$+ "C" 

< 72 > 60 DEF FNab$(x,y)= escape$+ ”Y"+CHR$(32+y)+CHR$(3 

2 + x) 

<15> 70 1nvon$=escape$+"p“ 

<90> 80 1nvoff$=escape$t"q" 

< 19 > 90 PRINT cls$ 

< 5 2 > 100 PRINT FNab$(13,0);1nvon$;CHR$(134);STRING$(60, 

138);CHR$(140);1nvoff$ 

<4S> 110 PRINT FNab$(1,1);CHR$(150);STRING$(11,154) ; inv 
on$;CHR$(136);SPC(60);CHR$(130);invoff$;STRING$(11 
,154);CHR$(156) 

<67> 120 PRINT FNab$(13,2);1nvon$;CHR$(131);STRING$(60, 

138);CHR$(137);Invoff$ 

< 52 > 130 FOR i=2 TO 26 
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< 68 > 140 PRINT FNab$(1, 1 ) ;CHR$(149);FNa b$(86, i ) ;CHR$(14 

9) 

< 44 > 150 NEXT 

< 62 > 160 PRINT FNab$(13,26) ;InvOnJ;CHR$(134) ;STRING$(60 

,138);CHR$(140);1nvoff$ 

< 69 > 170 PRINT FNab$(1,27) ;CHR$( 147 ) ;STRING$(11 , 154) ; ln 

von$;CHR$(136);SPC(60);CHR$(130);invoff$;STRING$(1 
1 , 154) ;CHR$(153) 

< 82 > 180 PRINT FNab$(13,28);invon$;CHR$(131) ;STRING$(60 

,138) ;CHR$(137);1nvoff$ 

<97> 190 DEF FNat$(X,y ) = escape$+ "Y"+CHR$(32 + 4 + y ) +CHR$ 

(32+15+x) 

< 1> 200 PRINT FNat$(5,5) ;CHR$(134);CHR$(138);CHR$(140) 

< 4 4 > 210 PRINT FNat$(5,6) ;CHR$(133) ; ";CHR$(133) 

<65> 220 PRINT FNat$(5,7);CHR$(133);" ";CHR$<133) 

< 8 7 > 230 PRINT FNat$(3.8 ) ;CHR$(134 ) ;CHR$(138);CHR$(137) 

; ’* " ;CHR$( 131) ;CHR$(138) ;CHR$( 140) 

<18> 240 PRINT FNat$(3,9) ;CHR$( 131) ;CHR$(138) ;CHR$(140) 
; " ” ;CHR$(134);CHR$(138) ;CHR$(137) 

<93> 250 PRINT FNat$(5,9);CHR$(140);" ";CHR$(134) 
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<37> 260 PRINT FNat$(5,10);CHR$(133);" ";CHR$(133) 

< 35 > 270 PRINT FNat$(5, 11 ) ;CHR$( 1 33) ;" ";CHR$(133);CHR$ 

(134);CHR$(136);CHR$(140) 

<84> 280 PRINT FNat$(5,12);CHR$(133);" ";CHR$(131);CHR$ 

(137) ;" ";CHR$(133) 

< 34> 290 PRINT FNat$(5,13);CHR$(131);CHR$( 138 ) ;CHR$(138 

);CHR$(138) ;CHR$(13 8)jCHR$(137 ) 

<19> 300 PRINT FNat$(13,8);CHR$(134);CHR$(138);CHR$(138 
) ;CHR$(138);CHR$(138);CHR$(138);CHR$(138) ;CHR$(138 
) ;CHR$(140) 

<68> 310 PRINT FNat$(13,9) ;CHR$(133) ;" ";CHR$(134 ) ; CHR$ 

(138) ;CHR$(138);CHR$(138);CHR$(140);" ";CHR$(133) 

< 71> 320 PRINT FNat$(13,10);CHR$(133);” ";CHR$(133); " . . 

" ;CHR$(133) ; " ";CHR$(133) 

< 9 4 > 330 PRINT FNat$(13,11 ) ;CHR$(133) ; " ";CHR$(133) ;". . 

";CHR$(133);" ";CHR$(133) 

< 5 > 340 PRINT FNat$(13,12);CHR$(133) ; " ";CHR$(131);CHR 

$(138) ;CHR$(138) ;CHR$(138);CHR$(13 7) ;" ";CHR$(133) 

< 7 > 350 PRINT FNat$(13,13);CHR$(131);CHR$(138) ;CHR$(13 

8);CHR$(138);CHR$(138);CHR$(138);CHR$(138);CHR$(13 
8);CHR$(137) 

<12> 360 PRINT FNat$(24,5);CHR$(134);CHR$(138);CHR$(140 

) 

<59> 370 PRINT FNat$(24,6);CHR$(133);" ";CHR$(133) 

< 81> 380 PRINT FNat$(24,7);CHR$(133);" ";CHR$(133) 

< 8 7 > 390 PRINT FNat$(24,8);CHR$(133);" ";CHR$(131) ; CHR$ 

( 138) ;CHR$(138) ;CHR$(138) ;CHR$(138) ;CHR$(138) ;CHR$ 
(140) 

< 3 > 400 PRINT FNat$(24,9) ; CHR$( 133) ; “ ; CHR$ ( 13 4 ) ; CHR$ 

( 138) ;CHR$( 138);CHR$(138);CHR$(140); " ";CHR${133) 

< 6> 410 PRINT FNat$(24,10);CHR$(133) ;" “;CHR$(133);". . 

";CHR$(133);" ";CHR$(133) 

<29> 420 PRINT FNat$(24,11);CHR$(133 ) ;" ";CHR$(133 ) ; " .. 

" ;CHR$(133);" ";CHR$(133) 

<39> 430 PRINT FNat$(24,12);CHR$(133);" ";CHR$(131);CHR 
$(138);CHR$(138);CHR$(138);CHR$(137);" ";CHR$(133) 
<41> 440 PRINT FNat$(24,13);CHR$(131) ;CHR$(138);CHR$(13 
8);CHR$(138);CHR$(138);CHR$(138);CHR$(138);CHR$(13 
8);CHR$(137) 

< 1> 450 PRINT FNat$(35,8) ;CHR$(134) ;CHR$(138) ;CHR$(138 

) ;CHR$(138);CHR$(138) ;CHR$(138) ;CHR$(138) ;CHR$(138 
) ;CHR$(140) 

< 50 > 460 PRINT FNat$(35,9);CHR$(133);" ";CHR$(134);CHR$ 

(138);CHR$(138);CHR$(138);CHR$(140);” ";CHR$(133) 

< 53 > 470 PRINT FNat$( 35,10);CHR$(133);" " ; CHR$(133);". . 

" ;CHR$(133);" “;CHR$(133) 

< 76 > 480 PRINT FNat$(35,11);CHR$(133 ) ;" ";CHR$( 1 33 ) ; " . . 

";CHR$(133);" ";CHR$(133) 

<24> 490 PRINT FNat$(35,12);CHR$(133);" ";CHR$(13 1) ; CHR 

$(138);CHR$(138);CHR$(138);CHR$(137);" ";CHR$(131) 

;CHR$(140) 

< 7 1 > 500 PRINT FNat$(35, 13);CHR$(131);CHR$(138 ) ;CHR$(13 

8);C H R $(138);CHR$(138);CHR$(138);CHR$(138);CHR$( 13 
8);CHR$(138);CHR$(137) 

<29> 510 PRINT FNat$(46,8);CHR$(134);CHR$(138);CHR$(138 
);CHR$(138);CHR$(138);CHR$(138);CHR$(138);CHR$(138 
);CHR$(140) 

<31> 520 PRINT FNat$(46,9);CHR$(133);“ ";CHR$(134);CHR$ 
(138);CHR$(138);CHR$(138);CHR$(138);CHR$(138);CHR$ 

( 137) 

<76> 530 PRINT FNat$(46,10);CHR$(133);" ";CHR$(131);CHR 
$(138) ;CHR$(138);CHR$(138);CHR$(138);CHR$(138);CHR 
$(140) 

<54> 540 PRINT FNat$(46,11) ;CHR$(131 ) ;CHR$(138 ) ;CHR$(13 
8) ; CHR$(138);CHR$(138) ;CHR$(138);CHR$(140) ; " ";CHR 


$(133) 

< 24 > 550 PRINT FNat$(46,12);CHR$(134);CHR${138) ;CHR$(13 

8);CHR$(138);CHR$(136);CHR$(138);CHR$(137);" ";CHR 

$(133) 

<17> 560 PRINT FNat$(46,13);CHR$(131);CHR$(138);CHR$(13 
8);CHR$(138);CHR$(138);CHR$(138);CHR$(138);CHR$(13 
8);CHR$(137) 

< 2 > 570 PRINT invon$;FNab$(32,1);"$ b y. Thomas Schult 

e“;invof f$ 

< 2 3 > 580 PRINT FNab$(30,20) ;"hochwertige BASIC Software 


< 80 > 

< 5 7 > 

< 5 4 > 
<81 > 

< 94 > 

< 85 > 

< 1 > 

< 6 7 > 

< 3 > 

< 19> 

< 9 > 

< 70 > 

< 9 4 > 

< 11 > 
<69 > 

< 3 6 > 

< 74> 

< 80 > 

< 72> 

< 5 > 

< 9 1 > 

< 18> 

< 46 > 

< 9 4 > 

< 79 > 

< 82 > 

< 46 > 

< 3 1 > 

< 88 > 

< 5 7 > 

< 5 > 

< 75 > 

< 93 > 

< 49 > 

< 58 > 


< 8 6 > 
< 59 > 


590 PRINT FNab$(33,23) ;FRE(0) ;" bytes free"' 

600 t$="WEITER MIT EINER TASTE NACH WAHL" 

610 PRINT 1nvonj:zz = 27:GOSUB 620:GOTO 710 

620 FOR 1=1 TO LEN(t$);PRINT FNab$(25+1,zz);MI0$(t 

$,i . l); 


630 FOR d=1 TO 45:NEXT 

640 a$=INKEY$: IF a$="" THEN 650 ELSE RETURN 
650 NEXT 1 

660 FOR 1 = 1 TO LEN(t$):PRINT FNab$(25+i ,zz ) ; " "; 
670 FOR d=1 TO 45:NEXT 

680 a$=INKEY$: IF a$="" THEN 690 ELSE RETURN 

690 NEXT 1 

700 GOTO 620 

710 PRINT invof f$ 

720 PRINT CHR$(27);"f" 

730 z=12 

740 1abel$="Einheits1abe1" 

750 escape$=CHR$(27):home$=escape$+"H";cls$=escape 
$+"E"+home$:nach.Irgendwo$= escape$+"Y" 

760 GOTO 800 
770 REM up locate 

780 PRINT nach . i rgendwo$;CHR$(32 + zz);CHR$(32 + ss ) ; 
790 RETURN 

800 REM rahmen erzeugen 
810 GOSUB 820:GOTO 910 
820 PRINT c1s$ 

830 PRINT CHR$(134) ;STRING$(88,138) ;CHR$(140) 

840 PRINT CHR$(133) ;SPACE$(88) ;CHR$(133) 

850 PRINT CHR$(135);STRING$(88,138);CHR$(141 ) 

860 FOR 1X=2 TO 23 

870 PRINT CHR$(133);SPACE$(88);CHR$(133) 

880 NEXT 

890 PRINT CHR$(131);STRING$(88,138);CHR$(137) 

900 RETURN 

910 zz = 2:ss = 25:GOSUB 770:PRINT KASSETTEN LABELER 

STELLUNG $ by tobas" 

920 zz = 5:ss = 35:GOSUB 770:PRINT CHR$(27); "r " ; " H A U 
P T M E N ü";CHR$(27);"u" 

930 zz=23:ss=5:GOSUB 770:PRINT CHR$(27)+"r";"AUSWA 
HL MIT DEN CURSORTASTEN ";CHR$(27) + "u";SPC(20 ) ;CHR 
$(2 7 ) + " r"; " BITTE WÄHLEN SIE ";CHR$(27) + "u" 

940 zz=8:s3=5:GOSUB 770:PRINT "KASSETTENMARKE: ";1 


abe 1 $ 


950 zz = 8:ss=60:GOSUB 770:PRINT FRE(0 ) ;" BYTES FREE 


< 73 > 960 GOSUB 1000:GOSUB 1110 

< 78 > 970 GOSUB 1050 

< 40 > 980 GOSUB 1110 

< 76> 990 GOTO 970 

< 40 > 1000 zz=12:33=25:GOSUB 770:PRINT “Kassettenlabel e 

rstellen,.." 

< 43 > 1010 zz = 14:ss=25:GOSUB 770:PRINT "Kassetten 1abe1 d 

rucken." 
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Schalten - Steuern - Regeln mit dem JOYCE 

Endlich auch für die PCW-Reihe 8256/8512/9512 

Ideal tür Schule, Unterricht, Ausbildung: Steuern Sie mit Ihrem JOYCE Ampelanlagen. Robotermodelle, 
Schrittmotoren usw. 

Schaltinterface mit 8 Ausgängen und 0 Eingängen. Ausgänge über Hochlast-Relais, Eingänge über Opto¬ 
koppler galvanisch vom Computer getrennt Anschluß an den Computer direkt am Expansion-Port, 
keine CPS 8256-Schnittsleile erforderlich! Aus- und Eingangsverbindungen über 2,6 mm oder 4 mm- 
Bananenbuchsen, Es assen sich bis zu 8 Interfaces parallel anschließen (64 Aus-/Emgänge|. 


Betriebsfertiges Interfaces mkl. Netzteil und umfangreicher 
Bedienungsanleitung |mit BASIC-Programmbeispielen) 

DM 390- 

Keybord-Ver’ängerung für PCW 8256/8512/9512 (nur solange Vorrat): 
Anschlußfertiges Spiralkabel (grau) 30 cm -100 cm 

DM 25- 


Preise einsch'. Porto,'Verpackung bei Vorauszahlung. Bei Machnahmeversanu DM 8,- Versandkosten. 
Info-Material kostenlos. 

E. Sinkwitz, Didakt. Hard- und Software, Zähringerstr. 7,7880 Bad Säckingen 



* STARDRIVE 5.25-Laufwerke lür CPC 6/46416128 jetzt auch In 2x360 KB-Ausführung mit 

- 12 Monate Garantie. Geräte aus industrieller Produktion 

- Formschönes Flachgehäuse mit Int. Breitband-LED-Anzeige 

- Sehr leiser Laut, Netztoll. Schalter etc. 

- Eingebauter Diskettenseitenumschalter (alle S,25''- u. 3.5"-Lautwerko) 

- Sofortige Betriebsbereitschatt 

- Alle Kabel und Bedienungsanleitung im Lloterumfang enthalten 

3£-Zweitlaufwerk (720 KB) nur 298,-DK 

5j«;-Zweltlaufwerk (720 KB) nur 348 _ DK 


5,25“ Extemal Disk Drive: 

(8. Test In H. 10/86 S. 40: Fazit: "sehr empfehlenswert“) 

als Zweitlaufwerk 

als Erstlaufwork tür CPC 464 

Incl. Handbuch, Systomdlskette, Controller 

als Doppellaufwerk 3“ + 5,25“ I. CPC 464 

Incl. Handbuch, Systemdiskette, Controllot 

Weitoro Angebote (Auszug aus unserer kostenl Liste): 

- 3”-Zweitlw. FD1 orig. Schneider/Amstrad 
-5.25‘-Elnbau-Laulwerk (Sllm-Line) 

Preis zzgl. Potlo/Verpackung, Llste/Prospokto kostenlos 


nur 298, - DM 
nur 498, - DM 
nur 698,- DM 

nur 289, - DM 
nur 169, - DM 


G + L electronic 

Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 * Tel: 0 6359/2582 
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I JOYCE 


< 74> 1020 zz=16:ss=25:GOSUB 770:PRINT "Kassettenmarke w 

äh 1 en." 

< 31> 1030 zz = 18:33 = 25:GOSUB 770:PRINT "Ende. 


< 90 > 

< 69 > 

< 0 > 

< 23 > 

< 48 > 

< 43 > 

< 72 > 

< 5 9 > 

< 40 > 

< 72 > 

< 5 6 > 

< 50 > 

< 5 6 > 

< 14> 

< 107 

< 8 > 
< 6 6 > 
< 1> 

< 79 > 

< 2 > 

< 9 6 > 

< 22 > 

< 71 ) 
<21 > 

< 0 > 

< 49 > 

< 46> 

< 8 7 > 

< 9 > 

< 58 > 

< 24> 

< 9 > 

< 22 > 

< 6 7 > 
<83 > 

< 8 7 > 

< 68 > 
<11> 
< 1 6 > 

< 56 > 

< 9 > 

< 66 > 
<10> 

< 5 6 > 

< 6 > 

< 5 4 > 

< 49> 
<45 7 

< 89 > 

< 62 > 

< 89 > 

< 10 > 
< 8 > 

< 5 > 

< 7 > 

< 90 > 

< 1 7 > 

< 4 1 > 

< 63 > 

< 0 > 

< 32 > 

< 13> 

< 5 3 > 

< 36 > 

< 9 > 

< 43 > 

< 5 1 > 

< 20 > 
< 16 > 

< 8 3 > 

< 79 > 

< 85 > 

< 7 7 > 

< 70 > 

< 0> 
<43> 


1040 RETURN 
1050 REM 
1060 a$=INKEY$ 

1070 IF a$=CHR$(31) AND z>12 THEN z=z-2:RETURN 

1080 IF a$=CHR$(30) AND z<18 THEN z=z+2:RETURN 

1090 IF a$=CHR$(13) THEN GOSUB 1200 

1100 GOTO 1060 

1110 REM 

1120 GOSUB 1000 

1130 PRINT CHR$(27);"p" 

1140 IF z=12 THEN zz=12:SS=25:GOSUB 770:PRINT "Kas 
settenlabel erstellen..." 

1150 IF z=14 THEN zz=14:33=25:GOSUB 770:PRINT "Kas 
settenlabel drucken.” 

1160 IF z=16 THEN zz=16:ss=25:GOSUB 770:PRINT "Kas 
settenmarke wählen." 

1170 IF z=18 THEN zz=18:ss=25:GOSUB 770:PRINT "End 


1180 PRINT CHR$(27);"q“ 

1190 RETURN 

1200 REM *** HAUPTMENUE AUSWAHL *** 

1210 PRINT CHR$(2 7) + "e" 

1220 IF z =12 THEN GOSUB 1320 
1230 IF z=14 THEN GOSUB 1880 
1240 IF z=16 THEN GOSUB 2280 
1250 IF z=18 THEN GOSUB 2460 
1260 REM *** Bildschirm loeschen »** 

1270 ss=l 

1280 FOR zz = 4 TO 25 

1290 GOSUB 7 70:PRINT STRING$(87, “ ") 

1300 NEXT zz 
1310 RETURN 

1320 REM »*» KASSETTENLABEL ERSTELLEN *** 

1330 GOSUB 1260 

1340 REM ** Maske erstellen ** 

1350 ss=10:zz=10:GOSUB 770:PRINT "INTERPRET für Se 
1 te A . . . :." 


1360 ss=10:zz=12:GOSUB 770:PRINT "PLATTENTITEL für 

Seite A :." 

1370 ss=10:zz=16:GOSUB 770:PRINT "INTERPRET für Se 

1 te B. . . :." 

1380 ss=10:zz=18:GOSUB 770:PRINT "PLATT ENTITEL für 

Seite B :.“ 

1390 ss=38:zz=10:GOSUB 770:LINE INPUT 1nterpreta$ 
1400 ss=38:zz=12:GOSUB 770:LINE INPUT t1tela$ 

1410 ss=38:zz=16:GOSUB 770:LINE INPUT 1nterpretb$ 
1420 ss=38:zz=18:GOSUB 770:LINE INPUT t1telb$ 

1430 1nterpreta$=UPPER$(1nterpreta$) 

1440 interpretb$=UPPER$(interpretbS) 

1450 ss=38:zz=10:GOSUB 770:PRINT InterpretaS 
1460 ss=38:zz=16:GOSUB 770:PRINT InterpretbS 
1470 zz = 22:t$="Al 1e Angaben korrekt (J/N)?": GOSUB 
620 

1480 antwort$=LOWER$(a$) 

1490 IF antwo rt$="j" THEN 1520 
1500 IF antwort$="n" THEN 1320 
1510 GOTO 1470 

1520 REM ** Eingabe der Titel »* 

1530 GOSUB 1260 
1540 GOSUB 1640 

1550 ss=5:zz = 5:GOSUB 770:PRINT STR ING$(40,32 ) 

1560 ss=5:zz=5:GOSUB 770:PRINT Interpret* 

1570 ss=48: ZZ=5 :GOSUB 770:PRINT STRING$(39,32) 

1580 ss=48:zz=5:GOSUB 770:PRINT titel$ 

1590 FOR 11=1 TO 15 

1600 IF i1<10 THEN nr$=" "+ STR$(1i ) + ". " ELSE nr$=S 
TR$(11)+"." 

1610 ss=19:zz=7+i1:GOSUB 770:PRINT nr$;" :. ";STRI 
NG$(31,".") 

1620 NEXT 1i 
1630 RETURN 

1640 1nterpret$="SEITE A :. "+interpretaS 
1650 titel$=t1tela$ 

1660 zaeh1er=1 

1670 GOSUB 1550:GOSUB 1730 

1680 1nterpret$=”SEITE 8 :. "+1nterpretb$ 

1690 t1te1$=tite1b$ 

1700 zaehler=2 

1710 GOSUB 1550:GOSUB 1730 

1720 GOSUB 1260:PRINT CHR$(27>+"f":GOSUB 910 

1730 SS = 2 7 

1740 FOR 11=1 TO 15 

1750 zz= 7+i1 :GOSUB 770:LINE INPUT e1nze111te1 $(zae 
h 1 e r , 1 1 ) 

1760 NEXT 11 

1770 ss=25:zz=25:GOSUB 770:PRINT "Alle Angaben kor 
rekt (J/N)?"; 

1780 antwo rt$ = LOWER$(INKEY$) 

1790 IF antwort$="" THEN 1780 


<587 

< 29 > 

< 4 > 

< 12 > 

< 4 5 > 

< 6 9 > 

< 4 0 > 

< 6 > 
< 8 > 
< 12 > 

< 4 7 > 

< 64 > 

< 85 > 

< 2 5 > 

< 63 > 

< 73 > 

< 9 7 > 

< 2 8 > 

< 4 > 

< 79 > 

< 4 7 > 

< 39 > 

< 75 > 

< 5 3 > 

< 62 > 
< 8 > 

< 54> 

< 5 5 > 

< 70 7 
< 11 > 

< 5 6 > 

< 68 > 
< 80 > 

< 4 7 > 

< 41 > 

< 5 9 > 

< 1 > 

< 39 > 


< 2 4 > 


< 5 5 > 

< 1 > 

< 5 4 > 

< 9 7 > 

< 1 > 
< 1 6 > 

< 2 7 > 

< 8 1 > 

< 30 > 

< 2 6 > 

< 7 5 > 

< 68 > 

< 33 > 

< 6 3 > 

< 3 6 > 

< 9 > 
<94> 
<837 

< 98 7 

<147 

<987 

<667 

<477 

< 167 

< 767 
<777 
<677 
<777 


1800 IF antwort$="j" THEN ss=25:zz=25:GOSUB 770:PR 
INT STRING$(30," "):RETURN 
1810 IF antwort$="n" THEN 1830 
1820 GOTO 1780 

1830 ss=20:zz=25:GOSUB 770:INPUT "In welcher Zeile 
wurde ein Fehler gemacht zelle 

1840 33=27:zz=ze11e+7:GOSUB 770:PRINT STRING$(31," 

.") 

1850 ss=27:zz=ze11e+7:GOSUB 770:LINE INPUT einzelt 
itel$(zaehler,zeile) 

1860 ss=20:zz=25:GOSUB 770:PRINT STRING$(50, ") 

1870 GOTO 1770 

1880 REM **« KASSETTENLABEL DRUCKEN *** 

1890 IF 1 abe 1 $ = '"' THEN 1 abe 1 1 $= "E" : GOTO 1910 
1900 1abel1$=LEFT$(label$,1) 

1910 GOSUB 1260 

1920 ss=15:ZZ=15:G0SUB 770:PRINT "Bitte richten Si 
e Ihren Drucker aus <RETURN7" 

1930 antwort$=INKEY$:IF antwort$="" THEN 1930 
1940 IF antwort$=CHR$(13) THEN 1960 
1950 GOTO 1930 

1960 LPRINT CHR$(24);CHR$(27)+"c"; 

1970 k1ein$=CHR$(15):m1tte1$=CHR$(27)+"M":grossl$= 
CHR$(18):grOSs2$=CHR$(27)+"P" 

1980 fett$=CHR$(27)+"E":norma1$=CHR$(27)+"F":LPRIN 
T fett$ 

1990 LPRINT mtttel$;TAB(20) ; STR I NG$'( 48 , ) 

2000 LPRINT T A B(19 ) ;mittel$;“! ";TAB(67) M !" 

2010 LPRINT TAB(19) ;mi11e1 $;"! ";LEFT$(1nterpretat 

,20) ;TAB(42);LEFT$(InterpretbS,20);TA8(67 ) " ! " 

2020 LPRINT TAB(19) ;m1tte1 $; "! ";LEFT$(11te1a$,20) 

;TA8(45);LEFT$(titelb$,20) ;TAB(67);"! " 

2030 LPRINT TAB(19) ;STR ING$(48, ") ; 

2040 LPRINT kl ein$;normal$;:LPRINT CHR$(27) + "0" 
2050 FOR 1i=1 TO 17 

2060 LPRINT ,SPC(11);"1 ";LEFT$<e1nze111te1 $( 1 ,1i ) 
,31) ; 

2070 LPRINT TAB(63) ;LEFT$(e1nze111te1 $(2,11 ) ,31 ) ;T 
AB(94)" ! " 

2080 NEXT 1i 

2090 LPRINT mi11e1 $;fe11$; :LPRINT TAB(2 1 ) ;STR ING$( 
48, ) 

2100 IF 1abe11$="T" THEN RESTORE 2220 
2110 IF 1abe11$="B" THEN RESTORE 2230 
2120 IF 1abe11$="F" THEN RESTORE 2240 
2130 IF 1abel1$="M" THEN RESTORE 2250 
2140 IF 1abel 1$="E" THEN RESTORE 2260 
2150 FOR 11=1 TO 3:READ hue11e(11 ) :NEXT 11 
2160 LPRINT TA8(19+huelle(1));"!";TAB(66-huel1e(3) 
) ; " ! " 

2170 LPRINT TAB(19 + huel1e( 1 ));"!A: ";LEFT$(interpr 
eta$,18) ;". ";LEFT$(titela$,12);T AB(6 6-hue11e(3)) ; 


2180 LPRINT TAB(19+huelle(1));"!B: "LEFT$(interpre 
tb$,18) ;". ";LEFT$(titelb$,12);TAB(66-huel1e(3) ) ; " 

j " 

2190 LPRINT TAB (19) ;STR ING$(48, "-") 

2200 GOSUB 1260:PRINT CHR$(27)+"f":GOSUB 910 
2210 LPRINT g ross 1$;g ross 2 $ 

2220 DATA 8,3,0 
2230 DATA 8,3,0 
2240 DATA 5,3,3 
2250 DATA 3,3,5 
2260 DATA 0,0,0 
2270 GOTO 720 

2280 REM *** KASSETTENMARKE WAEHLEN *** 

2290 GOSUB 1260 

2300 ss=5:zz=7:GOSUB 770:PRINT "Sie können folgend 
e Kassettenmarken wählen 

2310 ss=25:zz=10:GOSUB 770:PRINT "1. TDK-Kassettte 
n " 

2320 ss=25:zz=12:GOSUB 770.PRINT "2. BASF-Kassette 
n " 

2330 ss=25:zz=14:GOSUB 770:PRINT "3. FUJI-Kassette 
n " 


2340 ss=25:zz=16:GOSUB 780:PRINT 
ten " 

2350 ss=25:zz=10:GOSUB 770:PRINT 


4. MAXELL-Kasset 
5 . E1nhe1ts1abe1 


(komplette Überdeckung) 

2360 ss = 20 : zz = 23 : GOSUB 770:PRI>!T "Bitte wählen Sie 


das gewünschte Kassetten 1abe1"; 

2370 antwo r t$ = LOWER$(INKEY$):IF antwort$=”" THEN 2 
370 

2380 IF antwort$< "0" OR antwort$>"5" THEN 2370 
2390 ON VAL(antwort* ) GOSUB 2400,2410,2420,2430,24 
40 

2400 1abe1$="TDK-Kassetten.. ":GOTO 2450 

2410 1abel$="BASF-Kassetten. ":GOTO 2450 

2420 1abel$="FUJI-Kassetten. ":GOTO 2450 
2430 label$="MAXELL-Kassetten”:GOTO 2450 
2440 label$="Einheitslabel . . "-.GOTO 2450 
2450 GOSUB 1260:PRINT CHR$(27)+"f":GOTO 910 
2460 PRINT c1s$:END 


Listing Beethoven 


Listing Beethoven 
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. „ , hrer Zeitschrift- 

aU s Heft 5/89 erXe Scft*®^^»»* 0 Einsatz- 

Databox ,st ^Mauftähige P ro9r ® ' 
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Einzelbezugspreis für DATABOX: 

PCW - 3‘‘-Disk. PC - 5 1/4“-Disk. 


24,- OM (unverbindliche Proisemplehlung) 

Wenn Sie über den DMV-Bestollservlce bestellen, gilt folgendes: 


Inland: 




Einzelpreis 

24.- DM 

Elnzolprols 


zzgl, Versandkoston 

3,- DM 

zzgl Versandkosten 

5,- DM 

Endprols 

27.- DM 

Endprols 

29,- DM 


Das Databox Abo kostet: 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin. 150,- DM 

Im europäischen Ausland. 160,- DM 

Im außereuropäischen Ausland. 180,- DM 


Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin. 300, - DM 

Im europäischen Ausland. 320, - DM 

Im außereuropäischen Ausland... 360, - DM 

Bitte benutzen Sie für Ihre Bestellung die 
Abo-Karte. 

Zahlungsweise: 

Am einfachsten per Vorkasse (Verrechnungs¬ 
scheck) oder als Nachnahme zuzüglich der 
Nachnahmegebühr. 

(Bei Lieferungen ins Ausland ist Nachnahme 
nicht möglich) 


Widerrufsrecht: 

Wir garantieren jedem 
Abonnenten das Recht, 
seine Bestellung inner¬ 
halb einer Woche nach 
Abschluß schriftlich beim 
DMV-Verlag, Postfach 
250, 3440 Eschwege 
zu widerrufen. Die recht¬ 
zeitige Absendung des 
Widerrufsschreibens ge¬ 
nügt zur Fristwahrung. 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

Bitte Bestellkarte benutzen 
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Information durch 
Unterbrechung 

Der Interrupt 11H näher betrachtet 
unter Turbo Pascal 

Beim Programmieren stolpert man als Einsteiger oft über den sogenannten 
Interrupt, weiß jedoch nicht, wie man diesen soft- oder hardwaremäßigen 
Eingriff in die Arbeit eines Prozessors realisieren soll. Gerade beim PC ist 
eine geschickte Interrupt-Programmierung bei bestimmten Anwendungen 
notwendig. Wie Sie per Interrupt dem System auf die Spur kommen, zeigt 
Ihnen unser Programm unter Turbo Pascal 3.0. 


Durch den Interrupt 11H wird dem 
Computer-Anwender ein Blick auf die 
derzeitige Systemhardware-Konfigu¬ 
ration gestattet. In seinem Output-Bit 
(AX) werden die einzelnen System¬ 
komponenten aufgeführt und somit 
transparent gemacht. Damit ist es mög¬ 
lich, softwaremäßig zu erkennen, wie 
viele Laufwerke dem PC zur Verfü¬ 
gung stehen, welche Videokarte be¬ 
nutzt wird und wieviel Hauptspeicher 
im Rechner implementiert sind. 

Zusätzlich kann erkannt werden, ob ein 
Game-Adapter (z.B. für einen Joy¬ 
stick) vorhanden ist. Interessant dürf¬ 
ten auch die Informationen über die 
Anzahl der seriellen- (V24) und der pa¬ 
rallelen Schnittstellen sein. Alle diese 
Werte stehen nach Aufruf dieses Inter¬ 
rupts dem Anwender in dem DOS- Re¬ 
gister AX zur Verfügung. Die Auswer¬ 
tung dieses Registers muß allerdings 
auf Bit-Ebene erfolgen, da diese die 


Aussage auf die oben angeführten In¬ 
formationen treffen. 

Unterstützung vom Programm 

Das Turbo-Pascal-Programm ’TEST- 
PC1’ veranschaulicht die Nutzung und 


Auswertung des Int 11H. Nach dem 
Aufruf des Interrupts steht ein hexade¬ 
zimaler Wert im Register AX. Dieser 
wird nun in eine binäre Kombination 
umgewandelt. Dazu wird im globalen 
Datenbereich ein Feld definiert, wel¬ 
ches 16 Char(acter) faßt. Dieses Feld 
wurde “bit“ genannt. 

Ein Beispiel: 
bit: arrayfl.. 16] ofchar 
Dieses Feld (oder auch Tabelle) wird 
nun mit 0 oder 1 gefüllt. Die Kombina¬ 
tion in dieser Tabelle ergibt dann den 
binären Wert des hexadezimalen Out¬ 
puts aus Register AX. Dazu folgender 
Pseudocode : 

IF Wert AX ungerade THEN 
Stelle eine 1 in die Tabelle 
ELSE 

Stelle eine 0 in die Tabelle. 

Diese Abfrage muß nun so lange 
durchlaufen werden, bis AX den Wert 
0 erreicht hat. Eine Verminderung des 
Registers darf nicht mit einer Subtrak¬ 
tion vorgenommen werden, sondern 
durch das Herausschieben des letzten 
rechten Bits. Es ergibt sich nun folgen¬ 
der Pseudocode : 

WH ILE Wert AX > 0 DO 
BEGIN 

IF Wert AX ungerade THEN 
Stelle eine 1 in die Tabelle 
ELSE 

Stelle eine 0 in die Tabelle 
Schiebe rechtes Bit heraus 
END 

Die entsprechenden Turbo-Pascal-An- 
weisungen stehen im Listing 1. Die 
Auswertung der Bits kann nun nach Li¬ 
sting 2 vorgenommen werden. Dieses 
Programm läßt sich mit einigen klei¬ 
nen Änderungen auch unter Turbo- 
Pascal 4.0 realisieren. Als Anmer¬ 
kung sei noch erwähnt: Wer keinen 
Zähler für die Tabelle führen möchte, 
kann selbstverständlich auch die An¬ 
weisung: 
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For ind := 16 downto / 
nutzen. 

Durch den Interrupt 15H läßt sich die 
Größe des erweiterten Speicherberei¬ 
ches feststellen. Dies geschieht durch 
Belegung des DOS-Registers AH mit 
dem Wert 88H. Die Größe steht nach 
dem Aufruf im Register AX. Der in 
dem Programm ’TESTPC’ angewand¬ 
te Interrupt 21H stellt dem Benutzer 
unter anderem die gerade benutzte 
DOS-Version zur Verfügung. Es gibt 
jedoch noch sehr viele andere Möglich¬ 
keiten, die Interrupts einzusetzen. 

(Ralph Rinschen/jb) 


LISTING 1 

Turbo-Pascal-Anweisungen (Felder 
global definiert) 
ind: = 0: 

integ : = regs. ax; 
while integ > 0 do 
begin 

ind := ind + 1; 
ifodd(integ) then 
bitlind] := 1 
eise 

bitfind]: = 0; 
integ : = integ shr 1 
end; [ ofbinaer j 


Dieses Programm und die Beispiele wurden in Turbo-Pascal 3.0 programmiert. Eine Anpassung an die 
Version 4.0 ist relativ einfach durchzufiihren. Fiir diejenigen, die das Programm an sich gerne nutzen 
möchten, werden wir eine tauffähige Version auf unserer PC-DATABOX zu diesem Heft bringen. 


DOS Interrupt 11H (Im Programm 
BIT + I) 

BIT Funktion 

0 

DISC-Laufiverk(e) 

I 

nicht benutzt 

2 

Speicherbank 

3 

Speicherbank 

4 

Video-Modus 

5 

Video-Modus 

6 

Anzahl DISC-Laafwerke 

7 

Anzahl DISC-Laufwerke 

8 

nicht benutzt 

9 

Anzahl serieller Schnittstellen 

10 

Anzahl serieller Schnittstellen 

11 

Anzahl serieller Schnittstellen 

12 

Game Adapter 

13 

nicht benutzt 

14 

Anzahl paralleler Schnittstellen 

15 

Anzahl paralleler Schnittstellen 


program TestPc; 

Ralph Bernd Rinachen 
MAPO-Soft c/o Ralph Rlnschen 
TestPc 
15.02.1908 } 

(Sk-) 


{ Autor 

Program : 

Oate create : 


type 

regrec = record 

case Integer of 

1 : (ax.bx.cx.dx.bp.si.ds.es.flags : 1 

nteger) ;{ register fuer die) 

2: (al,ah,bl,bh,cl,ch,dl,dh : byte): 

{ ms-dos routine ) 

end; { of record ) 


var regs 

1 nd, 1 nteg 

Drives 

Ca rd 

Printer 

Rams 

btt 

ICard 

IGameAdap 

IRam 

ERam 

Dos 1 

0 os 2 

V2 4 


regrec; 
integer; 
integer; 
integer; 
integer ; 
integer ; 

array [1 . . 16 ] of byte ; 
Str1ng[24] ; 
st rlng(45 j ; 

Integer; 

Integer; 
integer; 

1 nteger ; 

Integer ; 


const Col 
Cul 
Cor 
Cu r 


char 

char 

char 

char 




Css : char = ' || 1 • 

Csw : char = ' — '; 

procedure Hardware_Test; 

begi n 

Intr($n , regs) ; 
ind := o; 

Integ := regs.ax; 

while integ > 0 do {Tabelle füllen) 
begin 

ind ; = ind + 1; 
if odd(integ) then 
blttind] := l 
e 1 se 

bit[1nd ] := o; 
integ := Integ shr l 
end; { of binaer ) 

Ind := 0 ; 

If BittlJ = l then 

if BltI7] = 1 then 

if Bitte] = l then Drives := 4 
eise Drives := 3 

eise if Bitte] = l then Drives := 2 
eise Drives := l 
eise Drives := 0; 
if B1t[6] = 1 then 

if 81115] = 1 then Card := 1 
eise Card := 2 

eise if Bit[4] = l then Card := 3 
eise Card := 4; 
case Card of 

1 : ICard := 'Monochrom-Karte 00 x 25'; 

2 : ICard := 'Farbkarte 80 x 25'; 

3 : ICard : = 'Farbkarte 40 x 25'; 

4 ICard := 'nicht definierbare Karte'; 
eise ICard := Karte nicht gefunden'; 
end; (of case ) 

if 811110] = l then V24 ;= l 
eise V24 := 0; 


Listing IntllH 


Listing IntllH 



ulerslor© 


Hochstraße 11 
8500 Nürnberg 80 
Tel.: 09 11 / 28 90 28 


COMPUTER: - 

Joyce PCW 8256, kompl. Textsystem. neu, nu< 
TOWER AT 201, mit Interleavc 1:1 Controller 
u. 40 MB NEC-Festplatto (Bonch-Teat: 18ms) 

PC 1640 SD/MD + 20MB Festpl. * Toxtprogramm 

PC XT/AT ZUBEHÖR: 

Mathe-Co-Prtwossor 8087 8 MH* 

80287 10 MHZ 

RAM-Erweiterung PC 1512 auf 640 KB 
TOWER AT aul 1 MB 
Filecard auch für 1512/1640 20 MB 
30 MB 

Zwoitlaufwerk 1512,0640 5,25"360 KB 
TOWER AT 3,5" 720 K8 
Externes Zweitl. für TOWER AT 5,25" 1,2 MB 
Genius Mouse GM 6 Plus, dt Vorsion 
6 GM 2000, dt. Version 

Super Mouse, 3 Tosten, MS-Mousekompatibel 
Joystick, IBM-kompatlbol 
Joystick-Karto, für 2 Joysticks 



796- LC10 

548,- 


LC 24-10 

898,- 


3498. - LQ 3500 

688, 


2096- DMP3160 

488.- 

298,- 

CPC-ZUBEHÖR: 

Laufwerk DDI-1 


536- 

Zwoitlaufwerk FD-1 

269,- 

128,- 

Serielle Schnittstelle 

179,- 

298,- 

BTX-Modul 


596- 

698,- 

CPC/JOYCE-ZUBEHÖR: 


196- 

Mouse-Pack 


298.- 

Maxell 3"-Disk. 10 St. 


356- 

NEVADA Forlron (dt.) 


84,- 

NEVADA Cobol (dl.) 


96- 

68,- 

JOYCE-ZUBEHÖR. 


24,90 

Sorielle Schnittstelle 


34,90 

RAM Erweiterung 

139,- 


Wir llihren zu den Original-SCHNEIDER-Produkten Artikel verschiedener Firmen wie VORTEX. STAR-DIVISION 

2?Luc B .n C cD E 2;T^?nL M eJr4?l^' RUSHW * RE ' MÄR * T * TECHNIK, SYBEX, GFA, GERDES, STAR, 
SCHNEIDER-OATA, ABD, SOFTMAKER usw.l 


FIBUPLAN - Buchführung für 
PC, JOYCE oder CPC 

Einfaches Buchführungsprogramm auf der Basis einer doppelten Buchfüh¬ 
rung. FIBUPLAN ist menuegesteuert und besitzt übersichtliche Eingabemas¬ 
ken zum Aufbau einer EDV-unterstützten Buchhaltung. 

o 60 definierbare Konten (PC 80), 4-stellige Nummern 
o Kontenplan anzeigen, Kontostand errechnen 
o Ausdruck von Grundbuch und Kontenblättern 
O bequem mit einem Laufwerk zu nutzen 

o FIBUPLAN Diskette und Anleitung nur 148,- DM 

Versand p. Vorkasse (portofrei), Nachnahme (zzgl. 5 DM) 
Fordern Sie jetzt unser aktuelles Info an (bitte Computertyp angeben). 

VAN DER ZALM-SOFTWARE 

Elfriede van der Zalm, Software-Entwicklung & Vertrieb 
Schieferstätte, 2949 Wangerland 3, Tel. 0 44 61/55 24 
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Public 'I 
Domain: 

Der Malhe-Profl! 


Helpline* 


Dem Drachen auf> 
dtm Rachen «iImph 
ßraiidhelOc Tip« llir 
aktuelle Spiele) 


Spieigiganten: j/g. 


r\ Idi den C-64 g/L. / 
\^S U - ROM an der 
PC Engine 


Wortwelten 


Der Parser 
1 - ein Geheimnis 
ulrd entschlüsselt! 

4* * ' 


Wettbewerbe: 


Liewlnncn Sie einen ” 
HuUschraulrer-Humlflug. 
Software und viele* mehr 


Nichts für Langeweiler 


Auf dem Computer 
eröffnet sich eine neue 
Dimension des Spielens. 

Begleiten Sie JOYSTICK 
in die abenteuerlichen 
und lustigen Welten des 
Computerspiels. 

Ob Sie nun Geister 
durch ein Labyrinth 
jagen oder lieber die 
Weiten des Weltraums 
unsicher machen... 

Ob Sie garstige Magier 
bekämpfen oder lieber 
einen Fußballverein 
managen.... 

JOYSTICK, das Magazin 
für Computerspieler: 
Reviews, Tips, Stories, 
Berichte und 
Lösungshilfen. 

Eben alles, was 
Computern Spaß macht! 



^pc 


1f B11C11 I = 1 then V24 : ■> V24 + 2; 
if Blt[12) = 1 then V24 := V24 + 4; 
if Bit[13) = 1 then 

IGameAdap := 'Game-Adapter ist im System vorh 
anden' 

eise IGameAdap := 'Game-Adapter ist im System ni 
cht vorhanden'; 

if Bit[15] = 1 then Printer := 1 
elso Pr 1nter := 0; 

if Bit(16] = 1 then Printer := Printer + 2; 
if B1 1 14] = 1 then 

If Bi t(3 ] = 1 then Rams := 4 
eise Rams := 3 

eise if 81t[3] = 1 then Rams := 2 
eise Rams : = 1; 

Intr($ 12 ,regs); 
gotoxyt3,10); 

IRam ;= regs.ax; 
regs.ah :« $30; 

Intr($21,regs); 

Dos 1 := regs.al; 

Dos2 : = regs.ah; 
regs.ah’$88; 

Int r($15,regs); 

ERam := regs.ax; 
if ERam < 1 then ERam := 0 
end ; 

procedure Screen_out; 
var z 1nteger; 
begin 

texteo1or(8); 
gotoxy( 10 ,4); 
write(col) ; 
z := 0; 
repeat 

wri te (csv») ; 

z := z + 1 
until z = 60; 
wr1te(cor) ; 
z := 5; 

repeat 

gotoxy( 10 ,z); 
write(css); 
gotoxy(71,z); 
write(css) ; 
z := z + 1 
unti1 z = 24; 
gotoxy(10,23); 
write(cul); 
z := 0 ; 
repeat 

write(csw); 

z : = z + 1 
unti1 z = 60 ; 
write(cur); 
gotoxy( 10 , 6 ); 
write(ehr(199 ) ) ; 
z := 0 ; 
repeat 

write(chr(196)); 
z := z + l 
until z = 60 ; 
write(chr( 182 )) ; 
gotoxy( 12 ,5);texteo1or ( 6) ; 

write('Hardware- und Systeminformationen (Kurzfa 
ssung) Vers. 2.00'); 

gotoxy( 12 ,7);textcolor(4); 

writeC'Das System arbeitet zur Zelt mit der DOS- 
Version '); 

wr1te(Oos 1, '.' ,Dos 2 , ' mit'); 
gotoxy(12,8) ; 

wr1te('einem interen Speicher (RAM) von '.IRam,' 
KByte. ' ) ; 
gotoxy( 12,9); 

wr1te('Es sind ',ERam,' KByte ergänzender RAM-Sp 
eicher vorhanden.'); 

gotoxy( 12 , 11 ); 

writeC'Das System hat '.Orives,' phys1ka1tsch(e) 
Laufwerk(e) ’); 
gotoxy( 21 , 12 ); 

writ#('sowie '.Printer,' parallele und ',V24,' s 
erteile Ausgänge.‘); 
gotoxy(12,14); 
wr1te(IGameAdap); 
gotoxy( 12 , 16 ); 

wr1te( Als Bi 1dsch1rm-Steuerkarte wird eine '); 
gotoxy(25,17);write(ICard); 
gotoxy(12,19);wr1te('verwendet.'); 
gotoxy(1,23) 
end ; 

procedure Screeny; 
beg i n 
cl rscr; 

graphcolormode; 
cl rscr; 

graphbackgroundO); 
end ; 
beg 1 n 

textcolor(4) ;textbaekground(3); 

ClrScr; 

Ha rdware_T est; 

Sc reen_out; 
end. 


DMV-Verlag 

Postfach 250 • 3440 Eschwege 
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noch auftreten. Die ungeduldigen Ab¬ 
tipper können die Spielerklärung aus- 
lassen, da diese keinerlei Einfluß auf 
einen Funktionsteil des Programms be¬ 
sitzt. 

Die Auswahl der Aktientitel und ihre 
Gewichtung erfolgte aufgrund eigener 
Erfahrungen mit Aktienspekulationen. 
Dabei ist auf eine breite Auswahl an 
nationalen Titeln zugunsten von inter¬ 
nationalen Werten aus verschiedenen 
Branchen verzichtet worden. 

Die einzelnen Kursreaktionen sind im 
Unterprogramm ’LABEL ereignisse’ 
mit einem Faktor festgelegt. Je höher 
er ausfällt, desto proportional stärker 
steigen die Aktienkurse an. Gleiches 
gilt umgekehrt bei sinkenden Kursen. 
Wer Lust hat, kann hier verschiedene 
Faktoren ausprobieren. 

Die für den Programmstart benötigten 
Aktienkurse der Anzeigetafel sind im 
’LABEL kurse’ festgelegt. Auch hier 
wurde auf eine realistische Kurswahl 
geachtet. Bei Änderung der aktuellen 
Börsenlage kann das Programm des¬ 
halb ohne großen Aufwand angepaßt 
werden. Alles, was dazu benötigt wird, 
ist den Börsenteil einer größeren Zei¬ 
tung zu finden. Noch ein Hinweis: Alle 
Kurse werden in der Anzeigetafel auf 
volle DM-Beträge gerundet. Damit 
sind auch die gelegentlichen Preis-Dif¬ 
ferenzen bei den Kursangaben der 
Kontoauszüge zu erklären! 

Zum Schluß wünsche ich viel Spaß und 
Erfolg bei dieser Börsenspekulation! 

(Rüben Rimmler/jb) 


Wie stehen die Aktien? 

Börsensimulation in BASIC2 

Spätestens seit dem ’Schwarzen Montag’, dem Tag, an dem die Aktienkurse 
in ein tiefes Loch fielen, wird sich so mancher mit dem für den Normalbür- 
ger ebenso unverständlichen wie für Insider aufregenden Thema Aktien 
auseinandergesetzt haben. Wir bieten Ihnen nun auch etwas dazu an: Eine 
Börsensimulation für Ihren PC. Werden Sie Spekulant, und das auch noch 
risikolos! 


Bei dieser Art von Aktienspekulation 
geht garantiert kein sauer erspartes 
Geld verloren! Als Gewinn winkt aber 
auch kein Vermögen, sondern nur eine 
gewisse Freude am glücklichen Spiel! 


Nach dem fehlerfreien Abtippen des 
recht umfangreichen Programmes 
kann man den selbsterklärenden Funk¬ 
tionen dieser Börsensimulation folgen. 
Eine Fehlbedienung sollte damit kaum 
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REM Simulation Börso 

REM *** Programmablauf *** 

LABEL Vorbereitung 
GOSUB fenater 
GOSUB deflnltlonen 
GOSUB färbe 
GOSUB anze 1 getafe1 
GOSUB kurse 
GOSUB kursameige 
GOSUB Spielregeln 
GOSUB spielstart 

LABEL Spielverlauf 
jahr=jahr+l 
FOR oft=l TO wochen 
GOSUB abfrage 
GOSUB erelgnlsse 
GOSUB kursanzeige 
GOSUB kontostand 
GOSUB liquidltät 

IF oft=52 ANO wochen>52 THEN wochen=wochen-52: GOT 

0 splelverlauf 

NEXT oft 

GOTO auswertung 

REM »*» Unterprogramme *»* 


UM AKTIEN VERKAUF : ' + STRING$<27. " ") 

laust; 

PRINT: PRINT 

PRINT: INPUT "Akt 1ennummer aus Kurs-Anze1 ge-Tafe1 
angeben: ", nr 

IF nr=0 OR nr>20 THEN GOTO verkaufen 

PRINT: INPUT "Wieviel dieser Aktien möchten Sie ve 

rkaufen: ", st 

IF 3t=0 THEN GOTO verkaufen 

FOR 1=1 TO 20 

IF nr(1)< >0 AND nr(1) = nr AND st(1) = >st THEN bestan 
d=at(1}: GOTO Weiterverkäufen 
NEXT 1 

1=0: GOTO leerverkauf 

LABEL welterverkaufen 

n r( i ) = n r : et(i)=st: GOSUB Zuweisung 

anzelge$=" VERKAUFS-AUFTRAG: ": GOSUB anzeigen 

IF anzelge=2 THEN st(1)=bestand: RETURN 

LABEL depotauf1ösung 

IF anze1ge=l THEN kapita1=kapita1 +we rt(1)*st(1)*0 . 
985: gesamt=gesamt-wert(1)*st(i): CLS: GOSUB abrec 
hnung: GOSUB teilverkauf: RETURN 

LABEL teilverkauf 

at(1)=be3tand-st(1): bestand=0 

IF st(1)=0 THEN st(1)=0: nr(1)=0: name$(1)="": kau 

f(1)=0: wert(1 )=0 

RETURN 


LABEL abfrage 

STREAM «2: WINDOW *2 TITLE "Auswahl + Er 
e 1 g n 1 s s e": SET COLOUR fl: CLS: PRINT CHR$(7 

PRINT AT(1;1) COLOUR{fl5) e!n$+"Neue Woche=[Ret] 

Ak11en kauf=[ + ] Akt1enverkauf=[-] Abb 

ruch=[Esc]"+aus$; 

REPEAT 

an two rt$=INPUTS(1) 

UNTIL an twor t$ = CHR$(13) OR antwort$=CHR$(43) OR an 
twort$=CHR$(45) OR antwort$ = CHR$(27 ) 

IF antwort$=CHR$(13) THEN RETURN 
IF antwo r t$=CHR$(43) THEN GOSUB kaufen 
IF antwort$=CHR$(45) THEN GOSUB verkaufen 
IF antwort$=CHR$(2 7) THEN GOTO auswertung 
GOTO abfrage 

LABEL auswertung 

STREAM »2: SET COLOUR fl2: WINOOW «2 TITLE "0 e 
POtauflösung" 

aus=ALERT 0 TEXT " — Simulationsend 

0 “* Der noch verbleibende Akttenbestand 

wird Jetzt aufgelöst und der Ertrag dan 

n Ihrem Konto gutgeschrieben. Es "," folgt dann 
ein letzter Depotauszug. " BUTTON RETURN " ENDE 11 
antwort$=CHR$(45) 

FOR 1=1 TO 20 

IF 1=n r(1 ) AND st(i)O0 THEN st = st(1): nr=nr(1): a 
nzeige=l: GOSUB depotauf1ösung: st(1)=0: CLS 
NEXT 1 

GOSUB depotinfo: END 


LABEL leerverkauf 
CLS #2 

leer=ALERT l TEXT " Achtung, dies Ist ein Leerverk 
aufl ",“ Ihr Oepot hat nicht die notwendige 
Aktiendeckung. Ein Leerverkauf ist nur für ei 

ne Woche gültig und wird dann durch die Bank 

glattgestel1tI " BUTTON RETURN " ABBRUC 
H " ," 0 K A Y " 

IF 1ee r=1 THEN RETURN 

IF 1eer = 2 THEN antwort$=; merk = nr: 1=nr: nr(1) = n 
r: bestand=st(1 ) : st(1)=st: GOSUB Zuweisung 
IF (st(1 )-bestand)*wert(1)>kap1tal THEN GOTO nicht 

leer 

anzelge$=" LEERVERKAUF : ": GOSUB anzel 

gen 

IF anzeige=2 THEN bestand=0: st<1)=0: RETURN 
IF anzelge=l THEN kapltal= kap1ta1Iwert(1)«st(1)*0. 
985: CLS: GOSUB 1eerabrechnung: kauf(i)=wert(1 ) : G 
OSUB erelgnisse: GOSUB kursanzeige: GOSUB kontosta 
nd: oft=oft +1 
CLS *2 

1ee r = ALERT 1 TEXT " Achtung, der Leerverkauf wird 
nun glattgestellt! Der Gewinn/Verlust " , " wi 

rd dann auf Ihr Konto verbucht! Oie Kontosper 

rung Ist aufgehoben! " BUTTON RETURN ' OKAV " 

1eer=l: antwort$="": 1=merk: nr(i)=merk: st(1)=st: 
GOSUB Zuweisung 

kauf« 1 )=wert(1 ) : kapltal = kapital-wert«i)*(st(1)-be 
stand)* 1.015: G0SU8 1eerabrechnung 
bestand = 0: st< 1 )= 0 : namej«I) = '"': kauf( 1 )= 0 : wert(i 
)=0: 1eer=0: merk=0: RETURN 


LABEL kaufen 

STREAM #2: SET COLOUR fl2: CLS: PRINT CHR*(7) 

PRINT AT(1;1) COLOUR(fl5) ein$+"A U F T R A G Z 
UM AKTIENKAUF ;"+STRING$(33," ")+aus$ 
PRINT: PRINT 

PRINT: INPUT 'Aktiennummer aus Kurs-Anze1ge-Tafe1 
eingeben; ", nr 

IF nr=0 OR nr>20 THEN GOTO kaufen 

PRINT: INPUT "Wieviel Stück der Aktien wollen Sie 

erwerben: ", st 

IF st = 0 THEN GOTO kaufen 

FOR i=1 TO 20 

IF nr(1)=nr THEN bestand=st(i): GOTO welterkaufen 
NEXT 1 

bestand= 0 : 1 =nr 
LABEL welterkaufen 

nr« 1)=nr: st(1)=st: GOSUB Zuweisung 

anze1ge$=" KAUF-BESTAETIGUNG: ": GOSUB anzeigen 

LABEL kaufprüfung 

IF anzelge=2 THEN nr(1) = 0: namettl ) = "": wert(1)=0: 
n r(i)=0: st(1)=0: RETURN 

IF anzelge=l AND st(1)»wert<1)>(gesamt!kaplta1)*1. 
5 THEN GOTO nlchtkaufen 

kapltal=kapital-wert«1 ) *st(1 ) * 1 .0 1 5: gosamt = gesamt 
fwert(1) *st (1): CLS: GOSUB abrechnung: GOSUB zukau 
f: RETURN 
LABEL nlchtkaufen 

ALERT 1 TEXT "Ihr Kaufauftrag übersteigt leider de 
n ", "Kreditrahmen von 50X Ihres Vermögens! “,"B1tt 
e eine neue Kauforder einreichen! ".''Ihr Dlsposltl 
onskredit umfaßt derzeit ", STR$((gesamt+kaplta1)* 
1.5)+" OM" BUTTON RETURN " OKAY " 
anzeige=2: GOTO kaufprüfung 

LABEL zukauf 

IF bestand=0 THEN kauf(1)=wert(t ) : st«1)=st(1) 

IF bestand>0 THEN kauf(I) = (kauf«i)*bestand+wert(i ) 
*st(1))/(bestand+st «1 )): st(1 )=st(1)+ bestand: best 
snd = 0 
RETURN 

LABEL verkaufen 

STREAM »2: SET COLOUR fl2: CLS: PRINT CHR$(7) 

PRINT AT( 1 ; 1 ) C0L0UR(fl5) e1n$+"A U F T R A G Z 


LABtL i ee rabrechnung 

STREAM «2: SET COLOUR fl2: WINDOW »2 TITLE "* 
»LEER VERKAUF**»": 
LABEL leerdruckrechnung 
PRINT fn 

PRINT »n. TAB(IO) "IHRE BANK" 

PRINT #n, TAB«10) “Zweigniederlassung" 

PRINT Ün 
PRINT In, 


:PRINT *n, 


CO 


THEN PRINT »n, TA8(49) "LEERVERKAUF-RUEC 


TAB«10) COLOUR(fl) "WOCHE 
OLOUR(fl) USING ;oft; 

PRINT *n, TAB(21) COLOUR(fl) "JAHR ";:PR1NT *n, 
LOUR(fl) USING ;j ah r; 

IF 1ee r = 2 THEN PRINT »n, TA8(49) "L E E R V E R 
A U F" 

IF 1ee r= 1 
K KAUF" 

PRINT »n, T AB CIO) STRING$(60."-") 

PRINT *n, TAB(10) " Nr Wertpapier Stück Kurswe 

rt Gesamtwert Provision" 

PRINT #n, T AB(11) COLOUR(fl) USING ";nr(i ) ; 
PRINT Kn, T AB« 14) COLOUR(fl) name$(1) 

PRINT #n. TAB(27) COLOUR(fl) USING st<1> 

PRINT »n, TAB«14) COLOUR(f11) "1 m Bestand"; 

PRINT an, TAB(27) COLOUR(fll) USING bestan 

d ; 

IF 1eer = 2 THEN PRINT *n, TAB(35) COLOUR(fll) USING 
"«,***.*#";wert(i); 

IF leer=l THEN PRINT #n, TA8(36) COLOUR(fll) " 

IF 1ee r = 2 THEN PRINT »n, TAB(46) COLOUR(fll) USING 

"#•»,###.»#".wert« 1 )*bestand; 

IF leer=l THEN PRINT #n, TAB(48) COLOUR(fll) “ 

IF 1ee r= 2 THEN PRINT #n, TAB(60) COLOUR(fll) USING 

"*#,*»».##";wert(i)*bestand* 0 .015 
IF 1eer=l THEN PRINT #n, TAB(61) COLOUR(fll) " 


PRINT #n, TAB(14) COLOUR(f10) 
PRINT #n, TAB(27) COLOUR(flO) 
bestand; 

PRINT *n, TAB(35) COLOUR(flO) 

t( 1 ) ; 

PRINT in, TAB(46) COLOUR(flO) 
ert(1 ) *(st(i )-bestand); 


" Leer3 t üc ke"; 

USING "*»*»• ";st(1)- 

USING "#,###.«#" ;we r 

USING "»«« ,###.#*";w 
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Stück 


Kaufku 



PRINT In, T AB C 60) COLOUR(flO) USING "SS,SSS.SS";.e 
rt(1)*(st(1)-be stand )*0.015 
PRINT Sn, T AB CIO) ST RING$(60,"-") 

IF antwort* = CHR$(43) OR leer=l THEN PRINT Sn, TAB( 
10) “ BETRAG SOLL IN DM 

IF antwort$=CHR$(45) OR leer=2 THEN PRINT *n, TAB( 
10) " BETRAG HABEN IN DM "; 

IF antwOrt$=CHR*(43) OR leer=l THEN PRINT #n, T AB( 
46) COLOUR(f1) USING (wert(1)•(st(1)-b 

«Stand )»1.015 

IF antwort$=CHRS(45) OR leer = 2 THEN PRINT Sn, TAB( 
46) COLOUR(fl) USING "SSS ,SSS. S*" ; ( we r t <«)*(31 <1 ) - 
bestand)fw«rt(1)»bestand)*0.985 
PRINT Sn 
GOSUB warten 

IF taste$=CHR$(13) THEN RETURN 
IF taste$=CHR$(27) THEN GOSUB druck 
IF druck=l THEN n=0: GOTO 1eerdruckrechnung 
IF druck=2 THEN RETURN 


LABEL nichtleer 

nlchtleer=ALERT l TEXT " Oer Leerverkauf Ist nicht 
möglich, da Ihr Kontostand den Rückkauf der P 

os1= “,“ tlon nicht zuläpt und ein Leerverkauf 
niemals auf Kredit abgewickelt wird ! " BUTTON RE 
TURN •' OKAY ", " INFO " 

IF n1cht1eer=2 THEN GOSUB leerlnfo 
IF bestand=0 THEN st(1)=0: RETURN 

IF bestand>0 THEN st(1)=bestand: bestand=0: RETURN 


LABEL leerlnfo 

ALERT 0 TEXT " Ihr derzeitiger Kontostand: ", " OM 
"+STR$( kapl ta1), ““,“ Umfang Ihres Leerver kau fes: 
", " OM "+STR$((stCI)-bestand)*wert(1)) BUTTON RE 
TURN "OKAY” 

RETURN 


PRINT Sn, TAB(IO) ” Nr Wertpapier 
rs Kurswert Gesamtwert" 
posten=0 
FOR 1=1 TO 20 
nr=nr(1): GOSUB Zuweisung 
IF st(1 ) = 0 THEN GOTO postenschleife 
posten=posten+l 

PRINT «n, TAB( 11) COLOUR(fl) USING "M“;nr(i); 
PRINT Sn, T AB(14) COLOUR(fl) namej(l); 

PRINT in, T AB t 2 7) COLOUR(fl) USING "SSSaS";st(1 ) ; 
PRINT Sn. T AB C 35) COLOUR(fl) USING "#,**».**"; kauf 
(i); 

PRINT Sn, T AB(46) COLOUR(fl) USING M";»ert 

(D; 

PRINT »n, T AB(56) COLOUR(fl) USING "S*,SS#,S«S.#Ä" 
;we rt{1)»st(1) 

gesamt=gesamt+ROUNO(wert(1)*st{i),I) 

LABEL postenschleife 
NEXT 1 
1=0 

PRINT »n 
PRINT »n 
SING "SS 
PRINT Sn 
; gesamt 
PRINT tn 
PRINT Sn 


TAB(IO) STRING$(60,"-") 

TAB(IO) " GESAMTWERT OER 
;Posten;: PRINT Sn, " POSTEN IN DM. 

T AB(5 6) COLOUR(fl) USING " SS , SS#,SSS.SS" 


PRINT «n, U 


PRINT Sn, U 


T AB(10) STRING$(60,"-") 

TAB(10) “ KONTOSTAND DER 
SING "#*"joft;: PRINT »n, ". WOCHE IN DM: 

PRINT Sn, TAB<57) COLOUR(fl) USING "S,SSS,SSS.SS"; 

kapital 
PRINT Sn 
GOSUB warten 

IF tas te$ = CHR$(13) THEN RETURN 

IF taste$=CHR$(27) THEN GOSUB druck 

IF druck = 1 THEN n=0: gesamt=0: GOTO drucklnfo 

IF druck = 2 THEN RETURN 


LABEL anzelgen 

anzetge=ALERT 0 TEXT anzelgej, " Titel: "+name$( 
1), " Stück: "+STR$(st(1 )) , " Preis: " + STR$(wert 
(1)), " Summe: " + STR$(st (1 )«wert(1 ) ) BUTTON RETUR 
N " OKAY ", " STOP " 

RETURN 


LABEL Abrechnung 

STREAM S2: SET COLOUR fl2: WINDOW S2 TITLE "W E 
TPAPI ERABRECHNUNG": n=2 
LABEL druckrechnung 
PRINT Sn 

TAB(IO) "IHRE BANK" 

TAB(IO) “Zweigniederlassung" 


PRINT Sn, 
PRINT Sn, 
PRINT Sn 
PRINT Sn, 
OLOUR(fl) 
PRINT Sn, 


TAB(IO) COLOUR(fl) "WOCHE ";:PRINT Sn, C 
USING "SS";oft; 

T AB(21) COLOUR(fl) "JAHR ' 

LOUR(fl) USING “SS";J ah r; 

IF antwort$ = CHR$(43) THEN PRINT Sn, 

VON WERTPAPIEREN" 

IF antwOrt$=CHR$(45) THEN PRINT Sn, TAB(46) "VERKA 
UF VON WERTPAPIEREN" 

PRINT Sn, TAB(IO) STRING$(60.“ ") 

PRINT Sn 

PRINT Sn, TAB(IO) 
rt Gesamtwert 


' ; :PRINT Sn, CO 
T AB(49) "KAUF 


Stück Kurswe 


Nr We rtpaple r 
Provlslon" 

PRINT Sn, TAB(11) COLOUR(fl) USING "SS";nr< 1 ) ; 
PRINT Sn, TAB(14) COLOUR(fl) name$(i); 

COLOUR(fl) USING "SSSSS " ;st(1); 
COLOUR(fl) USING wert 


PRINT Sn, T AB(27) 
PRINT Sn, TAB(35) 


(1 ) ; 

PRINT Sn, T AB(46) COLOUR(fl) USING "SSS,SS«.SS ' ;we 

rt(1 ) * 31 (1 ); 

PRINT Sn, T AB(60) COLOUR(fl) USING ;wer 

t<1>»8t<1)*0.015 

PRINT Sn, T AB(10) STRING$(60," ") 

PRINT Sn 

IF antwOrt$=CHR$(43) THEN PRINT Sn, TAB(IO) " BETR 
AG SOLL IN OM "; 

IF antwort$=CHR$(45) THEN PRINT Sn, TAB(IO) " BETR 
AG HABEN IN DM 

IF an two rt$ = CHR$(43) THEN PRINT Sn, TAB(46) COLOUR 
(fl) USING "SSS,SSS.SS";wert(1)*st(1 )*1.015 
IF antwo r t$ = CHR$(45) THEN PRINT Sn, TAB(46) COLOUR 
(fl) USING "SSS,SSS.SS";wert(1)*st(1 )*0.985 
PRINT Sn 
GOSUB warten 

IF taste$=CHR$(13) THEN RETURN 
IF taste$=CHR$(27) THEN GOSUB druck 
IF druck=l THEN n=0: GOTO druckrechnung 
IF druck=2 THEN RETURN 


LABEL depotlnfo 

STREAM S2: WINDOW #2 TITLE "OEPOTAUFSTE 
L L U N G": CLS: SET COLOUR fl2: n=2 : gesamt=0 
LABEL drucklnfo 
PRINT Sn 

PRINT Sn, TAB(IO) "IHRE BANK" 

PRINT Sn, TAB(IO) "Zweigniederlassung" 

PRINT Sn 

PRINT Sn, T AB(10) COLOUR(fl) "WOCHE ";:PRINT Sn, C 
OLOUR(fl) USING "*•";oft; 

PRINT Sn. TAB(21) COLOUR(fl) "JAHR ";:PRINT Sn, CO 
LOUR(fl) USING "SS";jahr ; 

PRINT Sn. T AB(54) "DEPOTAUFSTELLUNG" 

PRINT Sn, TAB(10) STRING$(60,"-") 


LABEL llquldltät 

IF kaplta1<0 AND kaplta1<(-0.5*gesamt) THEN GOTO 1 
Iquldleren ELSE GOSUB depotlnfo: RETURN 
LABEL liquidieren 

STREAM S2: WINDOW S2 TITLE "Wichtige B a 
nkmlttellun g": SET COLOUR fl2: CLS 
PRINT 

PRINT " Sehr geehrter Kunde !" 

PRINT " Ihr Wertpapierdepot weist nicht 

mehr die erforderliche" 

PRINT " Deckung von 50 X des Aktienwert 

es auf 1 Sie sind des-" 

PRINT " halb zu einer Zwangsliquidation 

gezwungen ! Das Rest-" 

PRINT " guthaben werden wir danach auf 

Ihrem Konto verbuchen !" 

PRINT " Bitte eine Position aus Ihrem 0 

epotbestand auswählen 1" 

PRINT " Zum Ausgleich benötigen Sie fol 

gendes MlnImalkapltal 

PRINT 

PRINT " IHR KONTOSTAND IHR AKTIENW 

ERT IHR NACHSCHUSS" 

PRINT " - 


PRINT T AB(14) COLOUR(fl) USING "SS,SSS,SSS.SS"; ka 
pl ta 1 ; 

PRINT TAB(34) COLOUR(fl) USING "SS.SSS,SSS.SS"; ge 
samt; 

PRINT T AB(54) COLOUR(flO) USING "SS.SSS.SSS.SS"; A 
BS(0.5»gesamt+kapital) 

PRINT AT(13;14) e1n$+" Weiter mit de 
r Leertaste 1 "+aus$; 

REPEAT: taste$=INPUT$(1); UNTIL taste$=CHR$(32) 
GOSUB depotlnfo: GOSUB verkaufen: RETURN 

LABEL kontostand 
rest=oft MOD 4 

IF kapltal<0 THEN rest=l: GOSUB zinsen: kap1tal=ka 
pltal* 1.01 

IF kapltal>0 AND rest=0 THEN GOSUB zinsen: kapital 
= kap1tal*1.005 
GOSUB dlvldenden 
RETURN 

LABEL dlvldenden 

IF 1eer=l OR leer=2 THEN RETURN 
STREAM S2: SET COLOUR fl2: RESTORE 
FOR 1=1 TO 20 
READ nr, woche, dlvldende 

IF of t=woche AND n r= 1 AND st(1X>0 THEN n=2: kaplt 
al=kap1tal+d1v1dende»st(1): CLS: GOSUB gutschrlft 
NEXT 1 
1=0 

RETURN 

LABEL Stichtage 

DATA 1,16,4.5, 2,17,5, 3,24,10, 4,8,0.4, 5,2,4.4 
DATA 6,28,12, 7,13,12, 8,5,3.6, 9,27,1.2, 10,37,0. 

4 

DATA 11,21,6, 12,8,8, 13,26,5, 14,12,0.1, 15,23,10 
OATA 16,29,0.4, 17,14,1.8, 18,11,11, 19,15,0.8, 20 
,7,0.2 

LABEL gutschrlft 

WINDOW S2 TITLE "Ausschüttung ein 
er Dividende" 


Listing Börsen 


Listing Börsen 




















_Joyce Programmsammlungen_ 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 
Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3"-Diskette und Bedienungsanleitung ausgeliefert. 


Joyce Programmsammlung VOL. VI 


Die universell ersetzbare 
Tabellenkalkulation zum Erstellen 
von Monatsbilanzen, T-Konten 
etc. für die PCW(JOYCE)-Familie 
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Leistungsumfang: 

Auf der mitgelieferten Diskette finden Sie alle zur Erstellung 

eine Startdiskette nötigen Programme und Dateien. Die Be¬ 
dienungsanleitung enthält eine ausführliche Erklärung aller 

Funktionen. 

Funktionen: 

- kurze Einarbeitungszeit, da eine einfache und übersicht¬ 
liche Menüführung Fehleingaben abfängt oder gar nicht 
erst zuläßt 

- schnelles Arbeiten durch Belegung der Funktionstasten 
mit den wichtigsten Funktionen 

- auf Wunsch wird die Formel des aktuellen Feldes am un¬ 
teren Rand eingeblendet 

- besonders schnelle Bearbeitung von Eingaben und Be¬ 
rechnungen 


- arbeitet vollständig auf dem Memory-Laufwerk, was 
Schreib-/Leseoperationen wesentlich beschleunigt 

- bis zu 68 Zeichen pro Formel möglich 

- eigene Befehle zur Verkürzung der Formeln 

- drei verschiedene Schriftarten beim Drucken 

- standardmäßig 2574 frei belegbare Felder 

- akzeptiert sogar Exponentenschreibweise 

Joyce Programmsammlung Vol. VI TABKALK für alle JOYCE 
(PCW’s) braucht den Vergleich mit vielen teureren Program¬ 
men nicht zu scheuen. 

Joyce Programmsammlung Vol. VI für alle JOYCE PCW’s 


Best.-Nr.:22i 3“-Diskette 


59,- DM* 

unverbindliche Preisempfehlung 
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Das maßgeschneiderte 
DATENBANKSYSTEM für die 
PCW(JOYCE)-Familie 
(PCW 8256, PCW 8512, PCW 9512* *) 

Max. 27 Felder pro Datensatz, 50 Stellen 
pro Feld, 35.000 Sätze pro Datei, mini¬ 
maler Disketten-Speicherbedarf! 
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Die wichtigsten Leistungen von Vol. V auf einen Blick: 

- Generiert Standard-Direktzugriffsdateien (BASIC), die auch in Eigenprogram¬ 
me eingebunden werden können. 

- Vollautomatisch generierte Maske zur Datenerfassung, Datenänderung und 
Datenlöschung. 

- Reservierung des nötigen Speicherplatzes auf der Diskette, mit automatischer 
Erweiterung bei Erreichen der Reservierungsgrenze. 

- Gelöschte Datensätze werden vorrangig neubelegt, bevor weitere Sätze ver¬ 
braucht werden, 

- Auf Wunsch Datentransfer aus vorhandenen in neuangelegte Dateien. 

- Automatische Eintragung neuer Dateien in das Disketten-Hauptmenü 

- Alle Programme werden auf der RAM-Floppy gehalten. 

- Listenerstellung (Drucker oder Bildschirm) mit automatischer Spal¬ 
tenformatierung. 

- Daten können selektiert (ausgewählt, ausgeschlossen) werden. 

- Auf Wunsch Summen numerischer Spalten. 

- Freie Wahl der Sortierung: Mehrfachsortierkriterien. 


- Ohne Lernaufwand SOFORT voll anwendbar, keine Befehlswörter. 

- Nach 1-2 Minuten können Sie bereits über eine komfortable Maske Daten er¬ 
fassen. 

- Druckmasken für die beliebig sortierte Datenauflistung am Bildschirm oder am 
Drucker brauchen Sie nicht erst mühselig zu programmieren, sie werden vol¬ 
lautomatisch für beliebige Datenfelder und Spaltenfolgen generiert. 

- Bei mehrseitigen Auflistungen am Bildschirm Direktsprung zu jeder beliebigen 
Seite. 

- Einmal gewählte Druckparameter werden auf Wunsch gespeichert, die ent¬ 
sprechenden Listen können jederzeit abgerufen werden. 

Sofort Ergebnisse statt (frustrierender) Erlebnisse! 

VOL. V für Joyce/PCW 8256/8512/9512** mit ausführlicher 

Bedienungsanleitung 

Best.-Nr.: 220 3“-Diskette 99,— DM* 

unverbindliche Preisempfehlung 

** PCW 9512 auf Anfrage 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

—DMV-Verlag - Postfach 250 - 3440 Eschwege_ 






















BildEdltor 

Funktion: Grafikprogramm zum Erstellen von hochauflösenden Grafiken, 
welche in eigene Programme eingebunden werden können sowie deren 
Ausgabe auf dem JOYCE-Drucker. 

Leistungsumfang: Der mitgelieferten Diskette können sie alle zum Arbei¬ 
ten mit dem Programm benötigten Dateien entnehmen. Für alle Turbo- 
PascahProgrammierer wird auch der Programmtext mitgeliefert. 

Funktionen: Durch das Unterscheiden zwischen Grob- und Feinbearbei¬ 
tung ist es möglich, brilliante Grafiken auf das Pixel genau zu zeichnen, 
Lösch- sowie Invertierfunktion sind in allen Bearbeitungsmodi aufrufbar. 
Auch Texte können beider Grobbearbeitung in das Bild gebracht werden 
Im Dateimenü steht neben einer Lade- und Speicheroption noch eine Funk¬ 
tion zur Verfügung, welche zwei Bilder miteinander mischt. Neben dem Ver¬ 
satz des linken Randes vor dem Drucken können noch vier verschiedene 
Druckformate angewählt werden. 


VOL. IV für Joyce/PCW 8256/8512 mit 
edienungsanleitung 


syc 

ausführlicher B> 


Best.-Nr.:219 


3“-Diskette 


59,- DM* 

unverbindliche Preisempfehlung 


1. Feld-Tab 

F Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen. Vor¬ 
drucken und Formularen. Feld-Tab ist menügesteuert und bietet die Anwahl 
der einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie Sei¬ 
tenlänge. Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie 
Schriftweite, Schriftart und Text. Text kann mit LocoScript erstellt werden 
und nach Umwandlung in eine ASCII-Datei in Feld-Tab eingelesen werden 
Weitere ASCII-Editoren können ebenso verwendet werden wie der komfor¬ 
table programminterne Seiteneditor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein Grafikpaket für Statistiken, Geschäftspräsentationen und viele andere 
grafische Anwendungen! Überein Menü sind folgende Funktionen wählbar: 
• Balkendiagramme • Kurvendiagramme • Strichgrafik 
■ Punktediagramme • Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wich¬ 
tigsten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm 
als auch auf dem Drucker dargestelit werden. Gsxplot braucht den Ver¬ 
gleich mit wesentlich teurerer Software nicht zu scheuen! 

VOL.III für Joyce/PCW 8256/8512 zwei Disketten 
mit ausführlicher Bedienungsanleitung 


Best.-Nr.: 217 


3“-Diskette 


69, - DM* 

unverbindliche Preisempfehlung 


SUPERdat 

F Eine universelle Dateiverwaltung für PCW 8256/8512 zur Erstellung eigener Dateien, 
Leistungsumfang: MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen und -längen sowie die Länge des Suchbegriffs voreinstellen 
können, 

SUPERdat ist das Hauptprogramm, welches die Daten der gewünschten 
Datei verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere 
Sucharten, so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht 
Felder enthalten, wovon jedes max. 40 Zeichen enthalten darf. Die Gesamt¬ 
länge eines Datensatzes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib- (Mailmerge-)funktion 
für SUPERdat zur Verfügung. In einen in Laufwerk M: befindlichen ASCII- 
Text (z.B. mit RPED erstellt) werden automatisch vom Anwender vorausge¬ 
wählte beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger 
Stelle eingefügt. Weiterhin können 30 beliebige Datensätze in eine für Lo¬ 
coScript lesbare Datei umgewandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den 
Grundrechenarten auch Winkelfunktionen, quadratische und Prozentfunk¬ 
tionen. Eine Klammerebene und Memory-Funktionen vervollständigen das 
Leistungsangebot dieses Programms. 

VOL.il für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 


Best.-Nr.: 216 


3 U -Diskette 


49,- DM* 

unverbindliche Preisempfehlung 


1. Der Character-Designer 

F Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/ 
8512 und deren Darstellung am Bildschirm! Ausdruck von ASCII-Files in 
diesem Zeichensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editie- 
rung oder Neuerstellung von Zeichensätzen und deren Speicherung er¬ 
laubt. CD-PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker 
oder anderen Druckern in dem gewünschten Zeichensatz aus. 

CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensät¬ 
ze. SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, 
z.B. die der seriellen Schnittstelle, der Tastaturgeschwindigkeit und der 
Floppy-Steprate. 

2. MGX 

Funktion: Grafische Darstellung von mathematischen Funktionen und be¬ 
liebigen Meßreihen auf Bildschirm oder im Großformat auf dem Drucker. 
Leistungsumfang: Neben den arithmetischen Grundfunktionen sind auch 
weitere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfü¬ 
gung gestellt werden. Es können mehrere Funktionen und Meßreihen (die¬ 
se wiederum mit mehreren Meßwerten gleichzeitig) dargestellt werden. 

VOL.I für Joyce/PCW 8256/8512 mit 
ausführlicher Bedienungsanleitung 

Best.-Nr.: 215 3“-Diskette 59,-DM* 

unverbindliche Preisempfehlung 


D M V - Angebot 

Praktische Textverarbeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Sie¬ 
ben zeigt in diesem Buch Möglichkeiten der Text¬ 
verarbeitung auf, die Sie von LocoScript nicht er¬ 
wartet hätten... Von der Pike auf werden Sie an 
den Umgang mit Schablonen und Standardlayout 
herangeführt. Einige Abstecher führen Sie an¬ 
hand anschaulicher Beispiele an Textverarbeitung 
und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fort¬ 
geschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstallationsdatei für das Pro¬ 
gramm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 

Auf Diskette: Über 50 Dateien mit Schablonen, Briefen, Postkarten. Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften. 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3“-Diskette Best.-Nr. 401 DM 89, — * 


Joyce 

Bücher-Kiste 


Aus dem Data Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken. LOGO ist heute eine anerkannte Sprache 
bei vielen ehrgeizigen Programmprojekten. Das reicht bis hin zur Erstellung 
von Kl-Programmen. Hier das Buch für CPC- und Joyce-Besitzer, die viele Vor¬ 
teile dieser Sprache kennenlernen wollen, Um nur einige Stichworte zu nen¬ 
nen: Listenverarbeitung, Prozeduren, Rekursionen, Sortierroutinen, Masken¬ 
generator. Nutzen Sie diese Sprache für Ihre eigenen, ehrgeizigen Programm¬ 
ideen. 

410 Seiten Best.-Nr. 417 DM39,-* 

Das große Joyce-Buch 

Von der Textverarbeitung zum Programmieren - das bietet Ihnen das große 
Joyce-Buch. Hier werden alle Themen abgedeckt, die für Joyce-Nutzer inter¬ 
essant sind. Spezielle Anwendungen mit LogoScript, Personalisieren des Sy¬ 
stems mit CP/M. Multiplan auf dem Joyce, Uhr in BASIC, Grafikprogrammie¬ 
rung in LOGO und viele andere interessante Themen warten auf Sie Im gro¬ 
ßen Joyce-Buch. 

418 Seiten Best.-Nr. 418 DM59,-* 

Programmierwissen pur im Westentaschenformat 
Führer zum Joyce 

Best.-Nr. 450 DM 29,80* 

Führer zum CP/M 

Best.-Nr. 452 DM 19,80* 

Joyce für Einsteiger 

Wer einen Joyce gekauft hat, der möchte schnell und effektiv mit diesem 
Rechner umgehen. Joyce für Einsteiger wird dieser Anforderung voll gerecht. 
Von Kleinigkeiten, wie dem Anschluß des Gerätes oder dem Kopieren der Sy¬ 
stemdiskette bis hin zur optimalen Arbeit mit LocoScript finden Sie alles Not¬ 
wendige. Dazu eine kleine Einführung in BASIC und LOGO und natürlich in 
das Betriebssystem von CP/M-Plus. 

248 Seiten Best.-Nr. 453 DM 29, - * 

Aus dem Franzis Verlag-Angebot 

Den Joyce programmieren 

Der Autor hat es sich zur Aufgabe gemacht, den Joyce als vollständigen Com¬ 
puter zu beschreiben. Er vermittelt dem Joyce-Besitzer eine Menge interes¬ 
santer und nicht alltäglicher Kenntnisse. Außerdem ist das Buch angefüllt mit 
Programmlistings, die für den fertigen Einsatz konzipiert sind. Aus diesen Li- 
stings lassen sich zahlreiche ausgefeilte Programmtricks entnehmen. Der Auf¬ 
bau und die Bedienung des CP/M-Betriebssystems werden ebenfalls für den 
Joyce-Anwender, der sich nicht mit einfacher Textverarbeitung begnügen will, 
behandelt. Insgesamt stellt das Buch eine interessante Programmierliteratur 
für den technisch interessierten Joyce-Eigner dar. 

ca. 160 Seiten Best.-Nr. 425 DM 38,-* 

Aus dem Hüthig-Verlag-Angebot 

Joyce - Das Praxisbuch zur Textverarbeitung 

Dieses Buch füllt einerseits die Lücken, die die zum Joyce mitgelieferten 
Handbücher noch offen gelassen haben, und gibt andererseits viele Tips zur 
praktischen Arbeit mit LOCO-SCRIPT. 

Sie erfahren, wie man Briefköpfe erstellt, Formulare ausdruckt, eine Phrasen¬ 
datei anlegt, mit dem Drucker kleine Firmen-Logos erstellt oder die verschie¬ 
denen LOCO-SCRIPT-Optionen effektiver nutzt. So kann das offensichtlich 
fehlende Mail-Merge doch mit Hilfe eines kleinen BASJC-Programms nach¬ 
empfunden werden. Zahlreiche Hardcopies und eine Übersicht sämtlicher 
LOCO-SCRIPT-Menüs mit den zugehörigen Untermenüs helfen sowohl Neu¬ 
lingen als auch »alten Hasen« gleichermaßen. 

125 Seiten, Best.-Nr. 419 DM 35, - * 

* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 3,- DM 
bzw. lür das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag • Postfach 250 * 3440 Eschwege 



















dPC 


PRINT #n 

PRINT »n. TAB(IO) "IHRE BANK" 
PRINT »n, TAB(IO) “Zweign1eder1assung" 
PRINT *n 
PRINT »n, 


PRINT #n, C 
"JAHR ";:PRINT *n, CO 


TAB(IO) COLOUR(fl) "WOCHE 
OLOUR(fl) USING "#*";oft; 

PRINT in, TAB(Zl) COLOUR C f1) 

LOUR(fl) USING "#*";jahr; 

PRINT *n, TAB(50) "DIVIDENOENGUTSCHRIFT" 

PRINT *n, TAB(IO) STRINGS(60, ) 

PRINT An 

PRINT An, TAB(10) " Nr Wertpapier Stück Ertrag 
Gesamt Kontostand neu" 

PRINT An, TAB(ll) COLOUR(fl) USING ''A# " ; nr (i ) ; 
PRINT An. TAB(14) COLOUR(fl) name$(1); 

PRINT An. T AB (27) COLOUR(fl) USING " AA#AA” ; st(i ) ; 
PRINT An, TAB(35) COLOUR(fl) USING "AAA,»A";div1 de 


nde; 

PRINT An, T AB(43) COLOUR(fl) USING "AA,AAA.AA " ; d 1 v 
idende*st<1 ) ; 

PRINT An, T AB(5 5) COLOUR(fl) USING "AAA,AAA,AAA.AA 
kapital 

PRINT An. TAB(10) STRING$(60,) 

PRINT An 


GOSUB warten 

IF taste$=CHR$(13) THEN RETURN 
IF taste$=CHR$(27) THEN GOSUB druck 
IF druck=l THEN n=0'. GOTO gutschrift 
IF druck=2 THEN RETURN 
RETURN 


LABEL zinsen 

STREAM AZ: SET COLOUR fl2 WINDOW TITLE "B A N K M 
ITTEILUNG": CLS: n=Z 
PRINT AZ 

PRINT AZ, TAB(IO) "Sehr geehrter Kunde I" 

IF rest=1 THEN PRINT A2, TAB(IO) "Wegen fälliger 5 
ollzinsen belasten wir Ihr Konto wie folgt 
IF rest=0 THEN PRINT AZ, TAB(IO) "Nachfolgende Hab 
enzlnseh schreiben wir auf Ihrem Konto gut 
PRINT A2 

LABEL druckauszug 
PRINT An 

PRINT An, TABC 10) "IHRE BANK" 

PRINT An, TAB(10) "Zweigniederlassung"; 

PRINT An, TAB{59) "KONTOAUSZUG" 

PRINT An, TAB(10 ) STRING$(60,"_") 

PRINT An, 

IF rest=l THEN PRINT An, TAB(IO) " Zeitraum Kont 
ostand alt Soll-Zinsen Kontostand neu" 

IF rest=0 THEN PRINT An, TAB(IO) " Zeitraum Kont 
ostand alt Haben-Zinsen Kontostand neu" 

PRINT An, TAB(11) COLOUR(fl) "WOCHE "; 

PRINT An, TAB(17) COLOUR(fl) USING "AA"joft; 

PRINT An, TAB(22) COLOUR(fl) USING "AAA,AAA,AAA.AA 
";kaplta 1 ; 

IF rest=l THEN PRINT An, TAB(41) COLOUR(fl) USING 
"AAA,AAA.AA" ;kapt tal*0.01; 

IF rest=0 THEN PRINT An, TAB(41) COLOUR(fl) USING 
"AAA,AAA.AA"; kapltal*0.005; 

IF rest=l THEN PRINT An, TAB(55) COLOUR(fl) USING 
"AAA, AAA, AAA. AA"; kapltal*1.01 

IF rest=0 THEN PRINT An, TABC55) COLOUR(fl) USING 
“AAA,*A*.AAA.AA";kapltal*1.005 
PRINT An. TAB(10) STRING$(60," ") 

PRINT An 
GOSUB warten 

IF ta3te$=CHR$(13) THEN RETURN 
IF tasto$=CHR*(27) THEN GOSUB druck 
IF drucksl THEN n=0: GOTO druckauszug 
IF druck=2 THEN RETURN 


Mnin? •tahll 1 atahl2 ( « u tol .auto2.rn.se 

a “"li « + !" lC ' hemi « 1 -chemie2.Japanl, J .pan2.us 
al,usa2.deutsche 1,deutsche2,aus 1 and!,aus 1and2,ho 11 
andl,holland2,1talienl,italien2,feiertag 


news$=tag$+new3$: spa1te=(78-LEN(newsS))/2+l: prin 
T TAB(spalte) news$ 

NEXT tage 

PRINT COLOUR(fl5) ein$+"** Böraenme1 düngen ** Börs 
enmeldungen ** Börsenme1 düngen ** Börsenmeldungen 
**"*aus$; 

PRINT AT(17;14) COLOUR(fl2) e1n$+" Weiter 
mit Leertaste I "+aus$; 

REPEAT: antwort< = INPUT$(1 ) ; UNTIL antwort$ = CHR$(32 

CLS: RETURN 


LABEL elektrol 

news$="Elektroakti en steigen!": nec=nec* 1.05: phi = 

phl*1.04:sle=st e*1.03 

RETURN 


LABEL elektro2 

news$="Elektroaktien fallen!"; nec=nec*0.95: ph1=p 

hi*0.96 : sie=s1e*0.97 

RETURN 

LABEL computerl 

n«wsl = "St«rke Kursgewinne bei Computerakt1en! “ : 1b 
m=1bm*1.07: n1x=n1x*1.06: ol1=o11 * 1.09: fuj=fui*l. 
08 

RETURN 


LABEL Computer2 

news$="Große Kursverluste bei Computeraktien!": 1b 
m=1bm*0.95: nix=nIx*0.94: o11=ol1*0.91: fuj=fuj*0, 
92 

RETURN 


LABEL maschinenl 

news$="Aktien des Maschinenbaus steigen!"; bab=bab 

*1.04: man=man*1.03: sng=sng*l.07 

RETURN 


LABEL maschir,en2 

news$="Akt1en des Maschinenbaus fallen!": bab=bab* 

0.96: man=man*0.97: sng=sng*0.93 

RETURN 

LABEL auto2 

news$="Kursverluste bei Autoaktien!": da1=dai*0.95 
fia=fia*0.93: toy=toy*0.94 
RETURN 


LABEL autol 

news$="Kursgewinne bei Autoaktien!": dai=dai* 1.05: 

f1a=fia*l.04: toy=toy*1.06 
RETURN 


LABEL chemiel 

news$="Chem1e- und ölwerte verbuchen Kursgewinne!" 
: akz=akz*l.07: bay=bay*1.05: bri=brt* 1.04: exx = ex 
x*1.08 
RETURN 


LABEL chem1e2 

news$="Kursverluste bei Chemie- und ölwerten!": ak 
z=akz*0.93: bay=bay*0.95: : bri=bri*0.93: exx=exx* 
0.94 
RETURN 


LABEL warten 

PRINT A2 , AT(10;14) e1n$+" [Esc]=Zur Oruckerausgab 
e [Ret)=We1ter Im Programm "+aus$; 

REPEAT 

taste$=INPUT$( 1) 

UNTIL taste$=CHR$(13) OR taste$=CHR$(27) 

RETURN 

LABEL druck 

druck=ALERT 3 TEXT " Bitte Drucker einschalten " 

, ” und auf <0N LINE > setzen! " BUTTON RETUR 

N "Drucker", "Abbruch" 

RETURN 

LABEL ereignisse 

STREAM *2: WINDOW A2 TITLE "Auswahl+Ere 
1 g n 1 s s e": SET COLOUR fl: CLS 

PRINT COLOUR( f15 ) TAB(37) e1n$+"W0CHE "+STR$(oft)+ 

aus$ 

PRINT: PRINT 

PRINT C0L0UR(fl5) ein$f”** Börsenmeldungen ** Börs 
enmeldungen ** Börsenmeldungen ** Börsenmeldungen 

** "taust; 

al1news$="": RESTORE börsentage 
FOR tage=l TO 5 
REAO tagt 
LABEL börsentage 

DATA "MONTAG: ", "DIENSTAG: ", "MITTWOCH: ", “DONN 
ERSTAG: ", "FREITAG: " 

LABEL böraennews 
zufal1=TIME MOD 27+1 


LABEL bankenl 

news$="Bankakt1en können zulegen!": cha=cha*1.05: 

dts=dts*l.05 

RETURN 

LABEL banken2 

news$="Bankakt1en tendieren schwach!": cha=cha*0.9 

5: dts=dts*0.95 

RETURN 

LABEL stahl 1 

news$*"Stah1werte steigen an!": hoo=hoo*1.6: man=m 

an*l.05 

RETURN 


LABEL stahl 2 

newa$= "Stah1 werte verzeichnen Verluste!“: hoo=hoo* 

0.94: man=man*0.95 

RETURN 


LABEL deutschel 

news$="Hausse ln deutschen Werten!": bab=bab*1.05: 

bay = bay* 1.07: da 1=dai* 1.08: dts=dts*l.05: man=man 
*1.06: nix=nix*1.1: sie=s1e*1.09 
RETURN 

LABEL deutsche2 

news$="Baisse ln deutschen Werten!": bab=bab*0.95: 

bay=bay*0.93: dai=dai*0.9: dts=dts*0.91: man=man* 
0.93: nix=n1x*0.69: sle=sie*0.91 
RETURN 
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LABEL Ulli 

news*="Starke Hausse ln Amerlkal": cha = cha* 1.06 ■ e 
xx=exx*1.09: 1bm=lbm*l.l: sng=9ng*1.08 
RETURN 
LABEL usa2 

news$="Große Kursverluste ln US-Werten!"; cha=cha* 
0.94: exx=exx*0.91: tbm=1bm*0.9: sng=sng*0.9 
RETURN 

LABEL aus 1 and 1 

news$="Auslandsakt1en steigen an!": akz=akz*1.05: 
br1=br1* 1.04: cha=cha*1.03: exx=exx*l.03: f1a=f1a* 
1.06: fuj=fuj*l.05: hoo=hoo*1.05: 1bm=1bm*1.07: ne 
c=nec*1.07: Ol 1=ol1 * 1.08: phl=phi* 1.06: sng=sng*l. 
08: toy=tOy*1.06 
RETURN 

LABEL aus 1and2 

naws$="Ausländ1 sehe Aktien fallen!": akz = akz*0.93 : 

br1=br1*0.95: cha=cha*0.96: exx=exx*0.97: f1a=f1a 
*0,94: fuj=fuj*0.95: hoo=hOO*0.95: 1bm=1bm*0.95: n 
ec=nec*0.94: ol1=©11*0.93: phl= ph1*0.95: sng=sng*0 
.92: toy=tOy*0.94 
RETURN 

LABEL Itallenl 

new3$ = "Ital1 an 1 sehe Werte steigen stärker!": fla=f 

1a*1.07: o11=o11*1.08 

RETURN 

LABEL 1tal1en2 

news$="VerlU3te bei Italienischen Werten!”: f1a=fi 

a* 0.93: 011=011*0.94 

RETURN 

LABEL holl and 1 

newaJ = "Gov/1 nne bei Hol 1 and-Aktl en ! " : a kz = akz* 1.05 : 

hoo=hoo*l.03: ph1=ph1*1.04 
RETURN 

LABEL holland2 

news$="Größere Verluste ln Amsterdam!": akz=akz*0. 

95: hoo=hoo*0.97: ph1=ph1*0.96 

RETURN 

LABEL Japan 1 

news$="Tok10 haussiert!": fuJ = fuj* 1.09: nec=nec*l. 

1: toy=toy*1.08 

RETURN 

LABEL Japan2 

news$="Schwache Börse ln Tok1o!":fuj = fuj*0,9 1: nec 

=nec*0.9: toy=toy*0.92 

RETURN 

LABEL felertag 

news$="B0ERSE WEGEN FEIERTAG GESCHLOSSEN!" 

RETURN 


LABEL Zuweisung 

ime$(1)="Akzo": wert(1)=akz 
ime$(1)="Babcock": wert( 1 )=bab 
imet (1 ) = '' Bayer “ : wert(1) = bay 
ime$(1) = "Br 11 Petr": wert(1) = br1 
ime$(1)="Chase Manh": wert(1)=cha 
ime$(i>="Da1m1er": wert(1)=dai 
ime$(1)="Dtsch Bank": wert(1)=dts 
ime$(1>="Exxon": wert(1)=exx 
ime$( 1)="F1 at" : wert(i)=f1a 
ime$(1)="FuJ1 tsu" : wert(1)=fuj 
ime$[1)=”Hoogovens": wert(1)=hoo 
ime$(1)="IBM": wert(1)=1bm 
ime$(1)="Mannesminn" wert(1)=man 
ime$(1) = "NEC Corp": wert(1)=nec 
»me$(1)="Nixdorf": \ 
ime$(1) = "01 1vettl" : 
ime${1)="Phl11ps" 
ime$( 1)="S1emens": 
ime$(1 ) = "S1nger": wert(1)=sng 
ime$ (1)=" Toyota": wert(1)=tOy 
wert( 1 ) = ROUND(wert{ D.l) 

RETURN 

LABEL anzelgetafel 
STREAM »1: SET COLOUR fl5 

PRINT AT(1;1) e1n$+"Nr Wertpapier Kurs Nr Wertpap 
1er Kurs Nr Wertpapier Kurs Nr Wertpapier Kurs"* 
aus$; 

PRINT AT(1;2) "01 Akzo 06 Daimler 

11 Hoogovens 16 Olivetti"; 

PRINT AT(1;3) "02 Babcock 07 Dtsch Bank 

17 Philips"; 

"03 Bayer 08 

smann 18 S1emens"; 

"04 Brlt Petr 09 Flat 

14 NEC Corp 19 Singer"; 

PRINT AT(1;6) "05 Chase Manh 10 Fujitsu 

15 Nixdorf 20 Toyota"; 

RETURN 


IF 

nr=01 

THEN 

IF 

nr = 02 

THEN 

IF 

nr = 03 

THEN 

IF 

nr=04 

THEN 

IF 

nr=05 

THEN 

IF 

nr=06 

THEN 

IF 

nr=07 

THEN 

IF 

nr=08 

THEN 

IF 

n r=09 

THEN 

IF 

nr = 10 

THEN 

IF 

nr=l 1 

THEN 

IF 

nr = 12 

THEN 

IF 

n r = 13 

THEN 

IF 

n r= 14 

THEN 

IF 

nr = 15 

THEN 

IF 

n r = 16 

THEN 

IF 

nr = 17 

THEN 

IF 

nr = 18 

THEN 

IF 

nr=19 

THEN 

IF 

n r = 20 

THEN 


we rt(1 ) = ol1 
wert(1) = p h1 


12 IBM 

PRINT AT(1;4) 

13 M« 
PRINT AT(1;5) 


Exxon 


LABEL Kurse 
akz=135: bab=170: 
dta=540: exx=84: 
man=225: nec=27: 
: sng=85: toy=38 


bay=310: br1=9: cha=60: da1=680: 
f1a=13: fuj=21: hoo=65: 1bm=240: 
n1x=340: 011=13: ph1=32: s1e=530 
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RETURN 

LABEL kursanzelge 
STREAM il: SET COLOUR fl2 

PRINT AT(15i2) USING "***•"j«kz;: PRINT AT(35;2) U 
SING ;ds1 ; : PRINT AT(5S;2) USING "#»#•"; hoo; 

: PRINT AT(75;2) USING "*•••";oll; 

PRINT AT(15;3) USING "#*•»";bab;: PRINT AT(35;3) U 
SING "••••” i dta ; : PRINT AT(5S;3) USING Ibm; 

: PRINT AT (75;3) USING "*«M";pht; 

PRINT AT (15 ; 4 ) USING "«**#"; bay ; : PRINT AT<35;4) U 
SING "***»";exx;: PRINT AT(55;4) USING "#*##";man; 
: PRINT AT(75;4) USING "#•#*";s1e; 

PRINT AT(I5;5) USING brl;: PRINT AT(35;5) U 

SING "**•*" ; f 1 a ; : PRINT AT(55;5) USING "itM';nec; 

: PRINT AT(75;5) USING "•*»#";sng; 

PRINT AT(15;6) USING “Ml#";cha; : PRINT AT(35;6) U 
SING ;fuj ; : PRINT AT(5S;6) USING "»»*«"; n 1 x ; 

: PRINT AT ( 75 ; 6) USING toy; 

RETURN 

LABEL feneter 

CLOSE WINDOW 3: CLOSE WINDOW 4 
FOR 1=1 TO 4: CLOSE #1: NEXT 1 
FOR 1=1 TO 3: OPEN *1 WINDOW 1: NEXT V 
ALERT 0 TEXT M Börsensimulation 
by"," Rüben 

R 1 m m 1 e r“, “ Schönwälder Ring 53"," 

7086 Nereshelm-Elchlngen" BUTTON RETURN " STA 


RT " 
SCREEN 

• 1 

TEXT 78 FIXED, 

7 

FIXED 

INFORMATION 

OFF 

WINDOW 

• 1 

SIZE 78,7 





WINDOW 

• 1 

PLACE 7,130 





WINDOW 

^ " 

• 1 

TITLE "Kurs 

- 

A n z 

ei g e - T 

a f 

1 

WINDOW 

• 1 

OPEN 





SCREEN 

«2 

TEXT 78 FIXED. 

14 

FIXED 

INFORMATION 

OFF 

WINOOW 

• 2 

SIZE 78,14 





WINDOW 

• 2 

PLACE 7,3 





WINDOW 

• 2 

TITLE "8 ö r s 

a 

n 

S 1 m u 1 a 

t 1 

WINDOW 

• 2 

OPEN 






RETURN 
LABEL Farbe 

farbe=ALERT 0 TEXT " Bestimmen Sie erst die ", " 
", " Bl 1dachlrmdarste11ung: “ BUTTON "CM Monitor 

", "MM Monitor" 

IF farbe = l THEN f 1= 1: fl0=10: fll = ll: fl2=12: fl5= 
15 

IF farbe=2 THEN fl=l: flO=l: fll=l: fl2=l: fl5=l 
RETURN 

LASEL def1n111onen 

e1n*=CHR$(2 7) + "p"; aua*=CHR*(27)+"q" 

DIM name*(20): OIM wert(20): OIM nr(20): DIM atC20 
): OIM kauf(20) 

RETURN 

LABEL aplelregeln 

aplelxALERT 2 TEXT " Benötigen Sie eine ", "", 

” Splelbeschrelbung? " BUTTON RETURN ” NEIN ", 

" JA " 

IF aple1=1 THEN RETURN 

STREAM #2: SET COLOUR fl2: WINDOW #2 TITLE "S P 
IELREGEL N": taste*="l": GOTO aelte 
1 

LABEL aettel 

CLS: GOSUB seltenmenü: PRINT 
PRINT T AB(4) "INFO"+STRING$(68,"-") 

PRINT 

PRINT TAB(4) "Bel diesem Spiel wird das Geschehen 
an dar Böraa simuliert. Nach Eingabe" 

PRINT TAB(4) "des Startkaplta1s wird nach der Spie 
ldauar gefragt. Durch die Festlegung" 

PRINT TAB(4) "auf ein Zeltlimit lassen sich also a 
uch Termingeschäfte simulieren. Wird" 

PRINT TAB(4) "dies nicht gewollt, so gibt man am b 
asten eine sehr hohe Wochenzahl ein.” 

PRINT TAB(4) "Das Spiel kann nämlich beliebig abge 
brochen werden, so daß ein Zeltlimit" 

PRINT TAB(4) "auch nicht unbedingt bis zum Ende du 
rchgehalten werden muß." 

PRINT 

PRINT TAB(4) STRINGS(692>" 

GOTO regelabfrage 
LABEL se1te2 

CLS: GOSUB seltenmenü: PRINT 
PRINT TAB(4) "<1)"+STRING$(69,"—") 

PRINT 

PRINT TAB(4) "Das anfangs gewählte Startkapital !ä 
Dt sich während der Simulation nicht" 

PRINT TAB(4) "erhöhen. Sollte das Konto Ins Minus 
geraten, so werden wöchentlich Solls" 

PRINT TAB(4) "zinsen fällig. Andererseits erhält m 
an monatlich Habenzinsen und Je nach" 

PRINT TAB(4) "Aktie auch etno Dividende. Die Dlvld 
enden sind auf 52 Wochen aufgeteilt." 

PRINT TA8(4) "Von den ln der Kursanzeigetafel vorh 
andenen Aktien können beliebig viele" 

PRINT TAB(4) "Posten gekauft, verkauft, zugakauft 
oder teilverkauft werden." 

PRINT 


PRINT T AB(4) STRING$(69,"-")+"[3>“ 

GOTO regelabfrage 
LABEL seite3 

CLS: GOSUB seltenmenü: PRINT 
PRINT TAB(4) "<2]" + STRING$(69,"-") 

PRINT 

PRINT TAB(4) "Hat man auf dem Konto ein Minus, das 
über die Hälfte des Aktienbestandes" 

PRINT TAB(4) "ausmacht, so Ist eine Zwangs1iqu1dat 
Ion fällig. Das Minus muß dann durch" 

PRINT TAB(4) "entsprechende Aktlenvorkäufe ausaegl 
Ichen werden, andernfalls geht es Im" 

PRINT TAB(4) "Programm nicht weiter. In einem solc 
hen Fall sollte beim Teilverkauf ein" 

PRINT TAB(4) "genügend hohes S1cherheltspolstar ei 
nkalkullert werden, damit mehrmalige" 

"Zwangsliquidationen vermieden werden 

PRINT 

PRINT T AB(4) STRING$(694>" 

GOTO regelabfrage 
LABEL se1te4 

CLS: GOSUB seltenmenü: PRINT 
PRINT T AB(4) “<3]"+STRING*(69, ) 

PRINT 

PRINT TAB(4) "Eine Besonderheit Im Programm Ist de 
r Laerverkauf. Hierbei können Aktien" 

PRINT TAB(4) "verkauft werden, die man gar nicht 1 
m Depot hat. Man spekuliert dann auf" 

PRINT TAB(4) "fallende Kurse, um die Aktien eine W 
ocho später billiger zurückzukaufen." 

PRINT TAB(4) "Aus der Differenz entsteht dann der 
Gewinn bzw. der Verlust, falls es zu" 

PRINT TAB(4) "steigenden Kursen kommt. Belm Laerve 
rkauf wird das Konto eine Woche lang" 

PRINT TAB(4) "gesperrt und dann zwangsweise durch 
die Bank glattgestellt." 

PRINT 

PRINT T AB(4) STRINGS<68,"-")♦"ENDE" 

GOTO regelabfrage 

LABEL seltenmenü 

LOCATE 1;1: PRINT COLOUR(flS) etn*+" ( 1 ] = Set 
te 1 I 2 ) = Saite 2 ( 3 ) = Seite 3 ( 4 

] = Saite 4 "+aus$; 

RETURN 


LABEL regelabfrage 
IF taste**"1" THEN LOCATE 
Seite 1 " + aus*; 

IF tasta*= "2" THEN LOCATE 
= Seite 2"+aus$; 

IF taste*="3" THEN LOCATE 
= Seite 3" + aus*; 

IF taste*="4" THEN LOCATE 
= Seite 4" + aus*; 

LOCATE 4;14: PRINT e1n*+" 
m mit der L 
us*; 


4;1: PRINT a1n*+"[ 1 ) = 

23;1: PRINT e1n*+"[ 2 J 

42;1: PRINT ein*+”( 3 ) 

61;1: PRINT e1n*+"[ 4 ] 

Zum Program 
eertaste ! "+a 


LABEL regeltasten 

REPEAT: taste*=INKEY*: UNTIL taste*<>"" 
IF taste$=CHR*(32) THEN RETURN 
IF taste*="1" THEN GOTO seltel 
IF taste*="2" THEN GOTO se1te2 
IF taste*="3" THEN GOTO se1te3 
IF taste*="4" THEN GOTO se1te4 
GOTO regeltasten 
RETURN 


c »_ apio i starx 

STREAM *2: SET COLOUR flO: WINDOW #2 TITLE "D e p 
Oteröffnung": CLS 

PRINT: PRINT TAB(14) "Wieviel Geld wollen Sie ln I 
hrem Aktlendepot anlegen?" 

PRINT: PRINT TAB(14) "Ihr Minimum beträgt 10 000, 
— DM und Ihr Maximum lat" 

PRINT: PRINT TAB(14) "auf 1 Million begrenzt. Gew 
Unechten Betrag elngeben:" 

LABEL kapitaleingabe 

WINDOW CURSOR ON 

INPUT AT(36; 10 ) "", kapital; 

WINDOW CURSOR OFF 

IF kapital< 10000 OR kapital>1000000 THEN PRINT CHR 
*(7);: TEXT DELETE LINE: GOTO kapl ta1eingabe ELSE 
CLS 

PRINT:PRINT TAB(14) "Ihr eingesetztes Startkapital 
beträgt ln diesem Spiel" 

PRINT: PRINT TAB(32) "DM "; 

PRINT COLOUR(fl) USING Kapital 

PRINT:PRINT TAB(14) "und Ihr von der Bank zugestan 
denen Dispositionskredit" 

PRINT: PRINT T AB( 32 ) "DM "; 

PRINT COLOUR(fl) USING "*,»##,»##.##"; kapital*0.5 
PRINT:PRINT TAB(14) "Wie viele Wochen soll das Spl 
ol ablaufen? wählen Sie!" 

PRINT TAB(14) "Anzahl der zu simulierenden Wochen 
(minimal I bls...)" 

LABEL Spieldauer 
WINDOW CURSOR ON 
INPUT AT(40; 13) "", wOchen; 

WINDOW CURSOR OFF 

IF wochen=0 THEN PRINT CHR*(7);: TEXT DELETE LINE- 
GOTO Spieldauer ELSE CLS: RETURN 
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Wieviel Millimeter ergeben 
eine Meile? 

Umrechnungen leichtgemacht 

Vielen Menschen fällt es nicht leicht, bestimmte Maße in kleinere oder grö¬ 
ßere Einheiten umzurechnen. Um diesem Umstand abzuhelfen, kann man 
auch seinen PC benutzen, vorausgesetzt, man tippt das vorliegende Pro¬ 
gramm ab. 


Vielen Menschen fallt es schwer, eine 
Maßeinheit in eine andere umzurech¬ 
nen. Ich habe es mir zur Aufgabe ge¬ 
macht, diesem Übel abzuhelfen. In un¬ 
serem Programm sind nicht alle Um¬ 
rechnungen für jedes Maß vorhanden, 


dies würde den Rahmen des Pro¬ 
grammumfanges sprengen. Allerdings 
dürfte es Ihnen anhand der modularen 
Programmierung leichtfallen, eigene 
Umrechnungen, die Sie eher benöti¬ 
gen, in das Programm einzutragen und 


es so zu ergänzen (wie zum Beispiel 
nichtmetrische Einheiten und Umrech¬ 
nung der nichtmetrischen in metrische 
Einheiten). 

Bedienungsfreundlichkeit 

Das Programm ist durch die Tastatur 
sehr einfach zu bedienen. Es müssen 
nur die entsprechenden Buchstaben 
oder Zahlen eingegeben werden. Die 
Menüführung ist komfortabel und 
schnell zu verstehen. 

Der Hauptzweck des Programms soll 
das Erlernen der Einheiten und deren 
Umrechnung sein, wir wünschen Ihnen 
deshalb viel Spaß mit dem Programm. 

(Sven Kästner/jb) 



10 CLS 

CLOSE * 1,* 2:CLOSE WINDOW 3:CL0SE WINDOW 4 
OPEN «1 WINDOW 1:WINDOW OPEN 
WINDOW FULL 

BOX 0,0,8400,5000 FILL WITH (0) COLOUR (1) 

PRINT 

PRINT COLOUR (10) MODE (2> POINTS (16) "Programmna 
me: CONVERT.BAS” 

PRINT COLOUR (10) MOOE (2) POINTS (16) "Programmie 
rer: Sven Kästner'' 


PRINT COLOUR (10) MODE (2) POINTS (16) "Datum: 
11.12.1988" 

PRINT COLOUR (10) MOOE (2) POINTS (16) "Programmie 
rsp.:Loc. Bas. 1.21" 


PRINT 

PRINT COLOUR (6) MOOE (2) POINTS (8) "Dieses Progr 
amm rechnet " COLOUR (7)"beiiebige Einheiten "COLO 
UR (6) "in ''COLOUR (7)'' beliebige Einheiten um " 
PRINT COLOUR (6) MODE (2) POINTS (8) "und ist dadu 
rch sehr flexibel!1 Das Programm erklärt sich von 


sei bst! !" 

PRINT:PRINT COLOUR (11) MODE (2) POINTS (10) "Es w 


erden Tabellen aufgellstet wie umgerechnet werden 
kann ! ! “ 

PRINT COLOUR (11) MODE (2) POINTS (10) "Oie Progra 
mmführung erfolgt durch eine Menüführung!“ 

PRINT:PRINT:PRINT.PRINT 

PRINT COLOUR (14) MODE (2) POINTS (16) FONT (3) B 
itte drücken Sie die Leertaste + > RETURN <!":INPU 
T a$ 

20 CLS 


BOX 0; 

0,8400,5000 FILL 

WITH 

1 (8) COLOUR 

(1) 


PRINT 

MODE 

(2) 

COLOUR 

(12) 

POINTS (10) 

' Tabel1e:"C 

OLOUR 

(11) 

"Umrechnung 

: Maße 




PRINT 

PRINT 

MODE 

(2) 

COLOUR 

(15) 

POINTS (10) 

FONT 

(4) "m 

m i n 

cm 

< a > 

: mm 

1 n 

dm <b> : 

mm 

i n m 

<c> 

mm 

1 n 

km <d>" 




PRINT 

PRINT 

MODE 

(2) 

COLOUR 

(15) 

POINTS (10) 

FONT 

(4) "c 

m t n 

mm 

< e > 

cm 

in 

dm < f > 

cm 

i n m 

<g> 

cm 

1 n 

km <h>" 




PRINT 

PRINT 

MODE 

(2) 

COLOUR 

(15) 

POINTS (10) 

FONT 

(4) "d 

m 1 n 

mm 

< 1 > 

: dm 

1 n 

cm <j> 

dm 

1 n m 

< k > 

dm 

1 n 

km < 1 > " 




PRINT 

PRINT 

MODE 

(2) 

COLOUR 

(15) 

POINTS (10) 

FONT 

(4) "k 

m 1 n 

mm 

<m> 

km 

1 n 

cm <n> 

km 

i n dm 

<o> 

km 

1 n 

m < p > " 




PRINT 

PRINT 

MODE 

(2) 

COLOUR 

(15) 

POINTS (10) 

FONT 

(4) "m 

1 n 

mm 

<q> 

: m 

1 n 

cm < r > 

m 

i n dm 

<s> 

m 

in km 

<t>' 





PR I NT:PRINT MODE (2) COLOUR (10) POINTS (16) EFF EC 
TS (3) FONT (2) "Weitergehen <w> : Erklärung <x>" 
PRINT:PRI NT MODE (2) COLOUR (6) POINTS (16) EFFECT 
S (3) FONT (2)"Programm beenden <100>" 

PRINT:PRINT COLOUR (12) MODE (2) EFFECTS (4) FONT 
(4) POINTS (16) "Bitte betreffenden Buchstaben ein 


geben!" 

INPUT a$ 

CLS 

IF a$=" " THEN 20 
IF a$="100" THEN 30 
IF a$= " X" THEN 10 
IF a$= " a " THEN 40 
IF a$="b" THEN 50 
IF a$="c" THEN 60 


IF 

a$ = 

d" 

THEN 

70 

IF 

a$= 

e" 

THEN 

80 

IF 

a$ = 

f " 

THEN 

90 

IF 

a$= 

9" 

THEN 

100 

IF 

a$ = 

h" 

THEN 

110 

IF 

a$ = 

1 " 

THEN 

120 

IF 

a$ = 

r 

THEN 

130 

IF 

a* = 

k" 

THEN 

140 

IF 

a$ = 

1 " 

THEN 

150 

IF 

a$ = 

m" 

THEN 

160 

IF 

a$ = 

n" 

THEN 

170 

IF 

a$ = 

o" 

THEN 

180 

IF 

a$ = 

p” 

THEN 

190 

IF 

a$= 

q" 

THEN 

200 

IF 

a$ = 

r" 

THEN 

210 

IF 

a$ = 

s" 

THEN 

220 

IF 

a$ = 

t" 

THEN 

230 

IF 

a$= 

w" 

THEN 

250 

30 

END 




40 

CLS 

PRINT:PRINT COLOUR (10) POINTS 

) 

'Bi t 

te 

geben 

Sie das Längenmaß in mm 


( 10 ) 


FONT (3 
!":INPUT 


maß 

LET wert=maß/10:PRINTrPRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "==> = = = = = =" 

PRINT "Das Ergebnis lautet "wert' cm,":GOTO 240 


50 CLS:PRINT;PRINT COLOUR (10) POINTS (10) FONT (3 
) "Bitte geben Sie das Längenmaß in mm ein!":INPUT 
maß 

LET wert=maß/lOO:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) ''<= = === = = =" 

PRINT "Oas Ergebnis lautet "wert" dm.";GOTO 240 

60 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT (3 
) "Bitte geben Sie das Längenmaß in mm ein! 11 INPUT 
maß 

LET wert-maß/1000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" m.':GOTO 240 


70 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT (3 
) "Bitte geben Sie das Längenmaß in mm ein! "1NPUT 
maß 

LET wert=maß/1000000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "n======^" 

PRINT "Das Ergebnis lautet "wert" km.":GOTO 240 

80 CLS PRINT:PRINT COLOUR (10) POINTS (10) FONT (3 
) "Bitte geben Sie das Längenmaß in cm ein!':INPUT 
maß 

LET wert=maß*10:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis lautet "wert" mm.":GOTO 240 


90 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT (3 
) "Bitte geben Sie das Längenmaß in cm ein!":INPUT 
maß 

LET wert=maß/10:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "==*=====" 

PRINT "Das Ergebnis lautet "wert" dm.''.GOTO 240 

100 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3) "Bitte geben Sie das Längenmaß in cm ein!":INPU 


Listing Convert 


Listing Convert 
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T maß 

LET wert'=maß/100 : PRINT : PRINT 
PRINT COLOUR (11) 'Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis lautet "wert” m.":GOTO 240 

110 CLS:PRINT:PRINT COLOUR (10) POINTS (10) PONT ( 
3) "Bitte geben Sie das Langenmaß ln cm ein!":INPU 
T maß 

LET wert=maß/100000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Obs Ergebnis lautet "wert" km.“:GOTO 240 

120 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3) "Bitte geben Sie das Längenmaß in dm etn!":INPU 
T maß 

LET wert =maß*100:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" mm.":G0T0 240 

130 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3) "Bitte geben Sie das Längenmaß in dm etn!":lNPUT 
maß 

LET wert=maß»10:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" cm.":GOTO 240 

140 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3)"Bitte geben Sie das Längenmaß in dm e1n!":INPur 
maß 

LET wort=maß/'10: PRINT : PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis lautet "wert" m.":GOTO 240 

150 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3)"Bitte geben Sie das Längenmaß in dm eln!":INPUT 
maß 

LET wert=maß/10000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis lautet "wert" km.":GOTO 240 

160 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3) "Bitte geben Sie das Längenmaß in km ein. :INPUT 
maß 

LET wert=maß*1000000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) ”========' 

PRINT "Das Ergebnis lautet "wert" mm.":GOTO 240 

170 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 

3)"Bitte geben Sie das Längenmaß In km ein!' :INPUT 
maß 

LET wert=maß*100000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========' 

PRINT "Das Ergebnis lautet "wert" cm.":GOTO 240 

180 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 
3) "Bitte geben S*e das Längenmaß in km ein 1 ':INPUT 
maß 

LET wert=maß*10000;PRINT:PRINT 
PRINT COLOUR (11) Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" dm.":GOTO 240 

190 CLS PRINT:PR1NT COLOUR (10) POINTS (10) FONT ( 

3)"B111 e geben Sie das Längenmaß ln km ein!": INPUT 
maß 

LET wert=maß*1000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wort" m.":GOTO 240 

200 CLS.PRINT■PRINT COLOUR (10) POINTS (10) FONT ( 

3) "Bltte geben Sie das Längenmaß in m ein!":INPUT 
maß 

LET wert = maß*1000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" mm,":GOTO 240 

210 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 

3)"Bitte geben Sie das Längenmaß ln m ein:":INPUT 
maß 

LET wert = maß«100:PRINT;PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" cm. ;GOTO 240 

220 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 

3) "Bitte geben Sie das Längenmaß ln m ein!":INPUT 
maß 

LET wert=maß*10:PRINT:PRINT 
PRINT COLOUR (II) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis lautet "wert" dm.":GOTO 240 
230 CLS:PRINT:PRINT COLOUR (10) POINTS (10) FONT ( 


Listing Convert 


3)"Bitte geben Sie das Längenmaß ln m e1n!":INPUT 
maß 

LET wert=maß/1000:PRINT:PRINT 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (II) "========" 

PRINT "Das Ergebnis lautet "wert" km.":GOTO 240 

240 PRINT:PRINT:PRINT COLOUR (14) EFFECTS (4) "Erk 
lärung Längenmaßtabelle' 

INPUT ent* 

IF ent*="e" THEN 10 
IF ent$="1" THEN 20 

250 CLS 


BOX 0 

;0,8400,5000 FILL WITH (8) COLOUR 

(1) 


PRINT MODE (2) COLOUR (12) 
COLOUR (11) "Umrechnung:Ge« 
PRINT 

POINTS 
»ichte" 

(10) 

"Tabet1e: " 

PRINT 

MODE (2) 

COLOUR 

(15) 

POINTS 

< 10) 

FONT 

(4) "m 

g t n 
> 1 n 
PRINT 

g < 1 > 

t < 5 > " 

1 n kg 

< 2 > 

i n z 

< 3 > 

1 n 

dz < 4 

PRINT 

MODE (2) 

COLOUR 

(15) 

POINTS 

( 10) 

FONT 

(4) " 

g 1 n 
> i n 
PRINT 

mg < 6 > 
t <10>" 

1 n kg 

< 7> 

1 n z 

<e> 

1 n 

dz <9 

PRINT 

MOOE (2) 

COLOUR 

(15) 

POINTS 

( 10) 

FONT 

(4) "x 

g i n 
> 1 n 
PRINT 

mg <11 > 
t < 1 5 > " 

in g 

< 12> 

1 n z 

< 1 3 > 

i n 

dz < 14 

PRINT 

MOOE (2) 

COLOUR 

(15) 

POINTS 

(10) 

FONT 

(4) " 

z 1 n 

> 1 n 
PRINT 

mg < 1 6 > 
t < 20 > " 

i n g 

< 1 7> 

in kg 

< 18 > 

1 n 

dz <19 

PRINT 

MOOE (2) 

COLOUR 

(15) 

POINTS 

( 10) 

FONT 

(4) "d 

z i n 
> 1 n 
PRINT 

mg < 2 1> 
t <25 >" 

i n g 

< 22 > 

1 n kg 

< 2 3 > 

i n 

z <24 

PRINT 

MODE (2) 

COLOUR 

(15) 

POINTS 

( 10) 

FONT 

(4) " 

t i n 
> in 

mg < 26 > 
dz < 30 >" 

in g 

< 2 7 > 

1 n kg 

< 28 > 

i n 

z <29 


PRI NT:PR INT COLOUR (10) EFFECTS (3) MODE (2) POINT 
S (16) FONT (4) "Vorige Tabelle Erklärungen Weit 

PRINT COLOUR (12) MODE (2) POINTS (16) FONT (4) "B 
Itte tätigen Sie die Eingabe:" 

INPUT s* 


IF 

a$="w" 

THEN 

570 

IF 

s$="v” 

THEN 

20 

IF 

3$="" 

THEN 

250 

IF 

s$="e" 

THEN 

10 

IF 

s$="l" 

THEN 

260 

IF 

s*="2" 

THEN 

270 

IF 

s* = " 3 " 

THEN 

280 

IF 

s*="4" 

THEN 

290 

IF 

s*="5" 

THEN 

300 

IF 

s* = " 6" 

THEN 

310 

IF 

s$="7" 

THEN 

320 

IF 

3*="8" 

THEN 

330 

IF 

to 

t* 

II 

THEN 

340 

IF 

s*=" 10 " 

THEN 

350 

IF 

S$="ll" 

THEN 

360 

IF 

s$="12" 

THEN 

370 

IF 

s$=" 1 3" 

THEN 

380 

IF 

s$="14" 

THEN 

390 

IF 

s*="15" 

THEN 

400 

IF 

3$="16" 

THEN 

410 

IF 

3*="17" 

THEN 

420 

IF 

s$=" 18 " 

THEN 

430 

IF 

s$= " 19 " 

THEN 

440 

IF 

s $="20 ' 

THEN 

450 

IF 

3$="21 " 

THEN 

460 

IF 

s $="2 2 " 

THEN 

470 

IF 

s$="23" 

THEN 

480 

IF 

s*="24 " 

THEN 

490 

IF 

s*="25" 

THEN 

500 

IF 

s$="26" 

THEN 

510 

IF 

s*="27" 

THEN 

520 

IF 

S$="2 6" 

THEN 

530 

IF 

S$="29" 

THEN 

540 

IF 

s*=“30" 

THEN 

550 


260 CLS:PRINT:PRINT COLOUR (15) POINTS (10) Bitte 
geben Sie das Gewicht ln mg elni'INPUT maß 
LET wert=maß/1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) “========" 

PRINT "Oas Ergebnis beträgt "wert" g!":GOTO 560 

270 CLS:PRINT:PRINT COLOUR (15) POINTS (10) Bitte 
geben Sie das Gewicht in mg ein: :INPUT maß 
LET wert=maß/1000000:PRINT PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" kg!':GOTO 560 

280 CLS:PRINT:PRINT COLOUR (15) POINTS (IO) "Bitte 
geben Sie das Gewicht in mg e1n!":INPUT maß 
LET wert=maß/1000000/SO:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt 'wert'' z 1 " . GOTO 560 
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290 CLS:PRINT;PRINT C0L0UR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in mg e1n!":INPUT maß 
LET wert=maß/ 1000000/50/2 : PRINT : PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (II) "========" 

PRINT "Das Ergebnis beträgt "wert" dzl":GOTO 560 

300 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in mg ein!":INPUT maß 
LET wert=maß/1000000000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis"' 

PRINT COLOUR (11) “==»=*===" 

PRINT "Oas Ergebnis beträgt "wert" t!":GOTO 560 

310 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in g ein!":lNPUT maß 
LET wert*maß*1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis beträgt "wert" mg!":GOTO 560 

320 CLS:PRINT•PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in g ein!":INPUT maß 
LET wert=maß/1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" kg:":GOTO 560 

330 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in g e1n!”;INPUT maß 
LET wert=maß/1000/50:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" z!":GOTO 560 

340 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln g ein!":INPUT maß 
LET wert=maß/1000/50/2:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "«=*=====" 

PRINT "Das Ergebnis beträgt "wert" dz!":GOTO 560 

350 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln g ein!":INPUT maß 
LET wert=maß/1000000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" t!":GOTO 560 

360 CLS:PRINT PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln kg ein!":INPUT maß 
LET wert=maß*1000000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "= = = = = = = = •' 

PRINT "Das Ergebnis beträgt "wert" mg I":GOTO 560 

370 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln kg e1n!":INPUT maß 
LET wert=maß*1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis beträgt "wert" g!":GOTO 560 

360 CLS:PRINT.PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in kg e1nl":INPUT maß 
LET wert=maß/50:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" z!":GOTO 560 

390 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln kg e1n!":INPUT maß 
LET wert=maß/100:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" dz!"':GOTO 560 

400 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln kg ein!":INPUT maß 
LET wert=maß/1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "0a3 Ergebnis beträgt "wert" t!“:GOTO 560 

410 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln z e1n!":INPUT maß 
LET wert=maß«50*1000000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" mg!":GOTO 560 

420 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln z e1n!":INPUT maß 
LET wert=maß»50*1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" g!":GOTO 560 

430 CLS:PRINT:PRINT COLOUR (15) POINTS (10) Bitte 
geben Sie das Gewicht in z e1n!":INPUT maß 
LET wert=maß*50:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis' 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" kg!":GOTO 560 
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440 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln z e1n!":INPUT maß 
LET wert=maß/2;PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT “Das Ergebnis beträgt 'wert' dz!'':G0T0 560 

450 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in z e1n!'':INPUT map 
LET wert=ma0/2O:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt 'wert'' t!":GOTO 560 

460 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln dz e1n!":INPUT maß 
LET wert=maß*100000000:PRINT : PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" mgl":GOTO 560 

470 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in dz ein!":INPUT maß 
LET we rt=maß»100000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis betragt "wert" g!":GOTO 560 

480 CLS:PRINT;PRINT COLOUR (15) POINTS (10) “Bitte 
geben Sie das Gewicht in dz ein!":INPUT maß 
LET wert=maß*100:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" kg!":GOTO 560 

490 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln dz ein!":INPUT maß 
LET wert=maß*2:PRINT;PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) '========" 

PRINT "Das Ergebnis beträgt "wert" z I "' : GOTO 560 

500 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in dz e1n!":INPUT maß 
LET wert=maß/10:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" t!" GOTO 560 

510 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht In t e1n!":INPUT maß 
LET wert=maß*1000000000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis"' 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" mg!":GOTO 560 

520 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln t ein!":INPUT maß 
LET wert=maß*1000000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis” 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis beträgt "wert" g!":GOTO 560 

530 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht in t ein!":INPUT maß 
LET wort=maß*1000:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" kg!":GOTO 560 

540 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln t ein!":INPUT maß 
LET wert=maß*20:PRINT:PRINT 
PRINT COLOUR (10) "Ergebnis" 

PRINT COLOUR (11) "========" 

PRINT "Das Ergebnis beträgt "wert" z!":GOTO 560 

550 CLS:PRINT:PRINT COLOUR (15) POINTS (10) "Bitte 
geben Sie das Gewicht ln t e1n!":INPUT maß 
LET wert=maß*10:PRINT;PRINT 
PRINT COLOUR (10) "Ergebnis“ 

PRINT COLOUR (11) "========" 

PRINT "Oas Ergebnis beträgt "wert" dz!":GOTO 560 


2 ln mm2 <13> In cm2 <14> ln m2 <15> in km2 <16> 
ln Ar <17 > ln ha <18>" 

PRINT 

PRINT MODE (2) COLOUR (6) FONT (1) POINTS (10) "m2 
ln mm2 <19> ln cm2 <20> in dm2 <21> in km2 <22> 
ln Ar <23> ln ha <24>" 

PRINT 

PRINT MODE (2) COLOUR (6) FONT (1) POINTS (10) "km 
2 in mm2 <25> in cm2 <26> ln dm2 <27> ln m2 <28> 
ln Ar < 29 > in ha <30>" 


PRINT 

PRINT MODE (2) COLOUR (6) FONT (1) POINTS (10) " A 
r ln mm2 <31> ln cm2 <32> in dm2 <33> ln m2 <34> 
in km2 <35> ln ha <36>" 

PRINT 

PRINT MODE (2) COLOUR (6) FONT (1) POINTS (10) ' h 

a in mm2 <37> ln cm2 <38> ln dm2 <39> in m2 <40> 
ln km2 <41) ln Ar <42> 

PRINT 

PRINT COLOUR (10) FONT (4) POINTS (16) MODE (2) "V 


orige Tabelle Erk 1ärungen“ 


INPUT s$ 



IF 

s$="e" 

THEN 10 

IF 

u> 

II 

< 

THEN 250 

IF 

s$= THEN 570 

IF 

s$="l" 

THEN 580 

IF 

s$="2" 

THEN 590 

IF 

s$="3" 

THEN 600 

IF 

S$="4" 

THEN 610 

IF 

s$="5" 

THEN 620 

IF 

s$="6" 

THEN 630 

IF 

s$="7" 

THEN 640 

IF 

s$="8" 

THEN 650 

IF 

s $ = '" 9 " 

THEN 660 

IF 

s$=“10" 

" THEN 

670 

IF 

s$="ir 

1 THEN 

680 

IF 

S$a“12" 

1 THEN 

690 

IF 

S $ = " 1 3 ‘ 

1 THEN 

700 

IF 

S$="14' 

1 THEN 

710 

IF 

s$="15' 

" THEN 

720 

IF 

s$="16' 

1 THEN 

730 

IF 

S$ ="17" 

' THEN 

740 

IF 

s$="18" 

' THEN 

750 

IF 

s$="19" 

' THEN 

760 

IF 

3$="20" 

' THEN 

770 

IF 

s$ = " 2 1' 

' THEN 

780 

IF 

s $ = " 2 2 ' 

' THEN 

790 

IF 

s$ = "2 3‘ 

’ THEN 

800 

IF 

3$="24" 

' THEN 

810 

IF 

3$="25" 

' THEN 

820 

IF 

s$="26‘ 

1 THEN 

830 

IF 

s $ = " 2 7 ' 

' THEN 

840 

IF 

s$="28' 

' THEN 

850 

IF 

3$ = " 29' 

' THEN 

860 

IF 

s$="30' 

" THEN 

870 

IF 

3 $ = " 31' 

' THEN 

880 

IF 

S$= "32' 

' THEN 

890 

IF 

s$="33 

" THEN 

900 

IF 

s$="34 

" THEN 

910 

IF 

S$="35' 

" THEN 

920 

IF 

3 $ = " 3 6' 

" THEN 

930 

IF 

s$="3 7' 

" THEN 

940 

IF 

s$="38 

"' THEN 

950 

IF 

3$="39 

11 THEN 

960 

IF 

3 $ = "40 

THEN 

970 

IF 

S$="41 

“ THEN 

980 

IF 

s$= "42 

“ THEN 

990 


580 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß ln mm2 ein!":IN 

PUT maß:PRINT:PRINT 

LET wert=maß/100 

PRINT COLOUR (11) "Ergebnis“ 

PRINT COLOUR (10) '========" 

PRINT " Das Ergebnis beträgt "wert" cm21 ":GOTO 1000 


590 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß In mm2 ein!": IN 

PUT maß:PRINT:PRINT 

LET wert=maß/10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis beträgt "wert" dm2!' GOTO 1000 


560 PRINT:PRINT:PRINT COLOUR (12) EFFECTS (4) "Erk 
lärungen Längenmaßtabe11e Gewichtetabe11e":INPUT 
ent$ 

IF ent$=”e" THEN 10 
IF ent$="1" THEN 20 
IF ent$=”g" THEN 250 


600 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) “Bitte geben Sie das Flächenmaß ln mm2 ein!":IN 

PUT maß:PRINT:PRINT 

LET wert=maß/1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert“ m2!".GOTO 1000 


570 CLS:BOX 0:0.8400,5000 
PRINT MOOE (2) COLOUR <15 
belle:' COLOUR (10) "Fläci 
PRINT 

PRINT MODE (2) COLOUR (6) 
2 ln cm2 <1> ln dm2 <2> 
ln Ar <5> In ha <6>" 
PRINT 

PRINT MODE (2) COLOUR (6) 
2 ln mm2 <7> ln dm2 <8> 

ln Ar <1X > ln ha <12>" 
PRINT 

PRINT MODE (2) COLOUR (6) 


FILL WITH (8) COLOUR (1) 
FONT (4) "Umrechnungsta 
lenmaße 

FONT (1) POINTS (10) “mm 
In m2 < 3 > in km2 <4> 


FONT (1) POINTS (10) "cm 
in m2 <9> ln km2 <10> 


FONT (1) POINTS (10) "dm 


610 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß In mm2 ein! '" :IN 

PUT maß:PRINT:PRINT 

LET wert=maß/1000000000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) ”========" 

PRINT "Da3 Ergebnis beträgt "wert" km2! ":GOTO 1000 

620 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 
0 ) "Bitte geben Sie das Flächenmaß in mm2 ein! "' : IN 
PUT maß:PRINT•PRINT 
LET wert=maß/100000000 
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PRINT COLOUR (11> "Ergebnis" 

PRINT COLOUR (10) "=======x" 

PRINT "Oas Ergebnis betrügt "wert" Ar!":GOTO 1000 

630 CLS'PRI NT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß in mm2 e1n!":IN 

°UT maß:PRINT;PRINT 

LET wert=maß/10000000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis betrügt "wert" ha!":GCTO 1000 

640 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß ln cm2 e1n!":IN 

PUT maßrPRINT:PRINT 

LET wert=maß*100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" mm2!":GOTO 1000 

650 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß in cm2 ein!" : IN 

PUT maß:PRINT:PRINT 

LET wert=maß/100 

PRINT COLOUR (11) Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" dm2!":GOTO 1000 

660 CLS:PRINT:PR I NT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß in cm2 ein:' : IN 

PUT maß:PRINT:PRINT 

LET wert=maß/10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) “*=====.=" 

PRINT "Oas Ergebnis beträgt "wert" m2!":GOTO LOGO 

670 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß in cm2 ein!‘:IN 

PUT maß:PRINT:PRINT 

LET we rt = maß/10000000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" km2!":GOTO 1000 

680 CLS:PRINT:PRINT COLOUR (10) FONT <3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß ln cm2 ein: :IN 

PUT maß:PPINT:PRINT 

LET we r t=maß/1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt wert" Ar!";GOTO 1000 

690 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 
0) "Bitte geben Sie das Flächenmaß in cm2 ein!":IN 
PUT maß:PRINT:PRINT 
LET wert=maß/100000000 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "======== 

PRINT "Das Ergebnis beträgt "wert" ha 1":GOTO 1000 

700 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß In dm2 e1n!":IN 

PUT maß:PRINT:PRINT 

LET wert=maß*10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wprt" mm2!":GOTO 1000 

710 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS <1 

0 ) "Bitte geben Sie das Flächenmaß ln dm2 ein!":IN 

PUT maß:PRINT:PRINT 

LET wert=maß*100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" cm2!”:GOTO 1000 

720 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß in dm2 e1nl“:IN 

PUT maß : PRINT ; PRINT 

LET wert=maß/100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" m2!":GOTO 1000 

730 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 
0 ) "Bitte geben Sie das Flächenmaß ln dm2 e1n!":IN 
PUT maß:PRINT:PRINT 
LET wert=maß/100000000 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "======n=" 

PRINT "Das Ergebnis beträgt "wert" km2!":GOTO 1000 

740 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0 ) "Bitte geben Sie das Flächenmaß ln dm2 e1n!":IN 

PUT maß:PRINT:PRINT 

LET wert=maß/10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" Ar!":GOTO 1000 

750 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS <1 
0 ) "Bitte geben Sie das Flächenmaß in dm2 ein!": IN 
PUT maß:PRINT:PRINT 
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FRAKTAL- on Neu 

Generator oU Dimension 


jetzt auch für den CPC 464/664/6128! 


Vergessen Sie den grauen Alltag: Der FRAKTAL GENERATOR 3D ent¬ 
führt Sie in märchenhafte Landschaften voller bizarrer Formen und Far¬ 
ben. Werden Sie zu einem Forscher im Wunderland der Fraktale. Ent¬ 
decken Sie Welten, die vor Ihnen noch nie ein Mensch erblickt hat, und 
speichern Sie Ihre Erinnerungsfotos auf Diskette oder Festplatte, um 
sie später einem staunenden Bekanntenkreis vorzuführen... 


Die Fakten: Der FRAKTAL GENERATOR 3D Ist... 

...unglaublich schnell: Nur 6 Minuten 30 Sekunden braucht der CPC, 
um das Apfelmännchen’ auf dem CPC als 3D-Landschaft darzustellen 
- Weltrekord für 8-Bit-Rechner! 

...farbenfroh: 10 gleichzeitig darstellbare Farben in MODE 1 durch 
eine trickreiche Mischtechnik. 

...vielseitig: Neben den Bildern der Mandelbrot-Menge (’Apfelmänn- 
chen') erzeugt der FRAKTAL GENERATOR 3D auch die daraus abge¬ 
leiteten Julia-Mengen und liefert damit eine Vielzahl weiterer interes¬ 
santer Bildmotive. 

...komfortabel: Die Bedienung erfolgt konsequent über Pulldown- 
Menues. Die Bilder können auf Diskette/Cassette archiviert oder auf ei¬ 
nem Matrixdrucker im DIN-A4- oder DIN-A5-Format ausgegeben wer¬ 
den. Auf dem CPC 6128 hält der FRAKTAL GENERATOR 3D mehrere 
Bilder im Speicher, zwischen denen beliebig gewechselt werden kann. 

...flexibel: Zahlreiche einstellbare Parameter ermöglichen eine indivi¬ 
duelle Bildgestaltung: Beliebiger Blickwinkel horizontal/vertikal, vergrö¬ 
ßerte Ausschnitte per Auswahlrahmen, minimale/maximale Rechentie¬ 
fe, Höhenfaktor, Glättungsfunktion, Darstellung der Fraktale als Berg¬ 
oder Talstruktur mit oder ohne ’Hidden Line’-Algorithmus, usw. 



Autor: Matthias Uphoff 


Ein Meisterstück der Computergrafik, das in keiner Software¬ 
sammlung fehlen sollte - jetzt auch für den CPC, mit dem vol¬ 
len Leistungsumfang der PC-Version! 


CPC 

Cassette 

Best.-Nr. 210 


59.- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 

Inland: Ausland: 

Einzelpreis 59,- DM Einzelpreis 59,-DM 

zzgl Versandkosten _ 3,- DM zzgl Versandkosten 5,- DM 

Endprets 62.- DM Bndprelä 64.- DM 


CPC 

Diskette 

Best.-Nr. 211 


69,- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 

Inland: Ausland: 

Einzelpreis 69,- DM Einzelpreis 69.- DM 

zzgl Versandkoslen _ 3,- DM zzgl. Versandkoslen _ 5.- DM 

Endprots _ 72,- DM Endprete 74,- DM 


Bitte benutzen Sie die Bestellkarte 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 
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LET we rt=ma ß/100 0000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis betragt "wert" ha!":GOTO 1000 

760 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flachenmaß ln m2 ein!":INP 

UT maß:PRINT:PRINT 

LET wert=maß*1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT “Oas Ergebnis beträgt "wert” mm2!":GOTO 1000 

770 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in m2 ein!":INP 

UT maß:PRINT:PRINT 

LET wert=maß»10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) " = = = = = = = = •' 

PRINT "Das Ergebnis beträgt "wert" cm2l":GOTO 1000 

780 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in m2 ein!":INP 

UT maß:PRINT:PRINT 

LET wert=maß*100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis beträgt "wert" dm2!":GOTO 1000 

790 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in m2 ein!":INP 

UT maß.PRINT:PRINT 

LET wert=maß/1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis beträgt "wert" km2l":G0T0 1000 

800 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sic das Flächenmaß in m2 ein!":INP 

UT maß:PRINT:PRINT 

LET wert=maß/100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" Ar!":GOTO 1000 

810 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in m2 ein!":IhP 

UT maß:PRINT:PRINT 

LET wert=maß/10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) ”====***»" 

PRINT "Das Ergebnis beträgt "wert" hal":GOTO 1000 

820 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß In km2 ein!": IN 

PUT maß:PRINT:PRINT 

LET wer t=maß*1000000000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" mm2!":GOTO 1000 

830 CLS-.PRINT : PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in km2 ein!" :IN 

PUT maß:PRINT:PRINT 

LET wert=maß*10000000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" cm2!":GOTO 1000 

840 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in km2 ein!":IN 

PUT maß:PRINT:PRINT 

LET wert*maß*100000000 

PRINT COLOUR (11) "Ergebnis 1 

PRINT COLOUR (10) ”========" 

PRINT "Das Ergebnis beträgt wert" dm2!":GOTO 1000 

850 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in km2 eln!":IN 

PUT maß:PRINT:PRINT 

LET wert=maß*1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" m2!":GOTO 1000 

860 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in km2 ein! " IN 

PUT maß:PRINT:PRINT 

LET wert=maß*10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" Ar!"GOTO 1000 

870 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in km2 ein!" IN 

PUT maß:PRINT:PRINT 

LET wert=maß*100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT “Das Ergebnis beträgt "wert" hal”:GOTO 1000 

880 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 
0) "Bitte geben Sie das Flächenmaß in Ar einl":INP 
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UT maß:PRINT:PRINT 
LET we r t=maß*100000000 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" mm2I":GOTO 1000 

890 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in Ar ein!".INP 

UT maß:PRINT:PRINT 

LET wert=maß*1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis beträgt "wert" cm2!":G0T0 1000 

900 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in Ar ein!":INP 

UT maß:PRINT:PRINT 

LET wert=maß»10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis beträgt "wert" dm2!":GOTO 1000 

910 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in Ar ein!":INP 

UT maß:PRINT:PRINT 

LET we rt=maß*100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Oas Ergebnis beträgt "wert" m2t":GOTO 1000 

920 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß ln Ar oin!":INP 

UT maß:PRINT:PRINT 

LET wert=maß/10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" km2!":GOTO 1000 

930 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß ln Ar ein!":INP 

UT maß:PRINT;PRINT 

LET wert=maß/100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "•=* = = ==■«" 

PRINT "Das Ergebnis beträgt "wert" ha!":GOTO 1000 

940 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß In ha ein!":INP 

UT maß:PRINT:PRINT 

LET wert=maß»10000000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" mm2!":GOTO 1000 

950 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 
0) "Bitte geben Sie das Flächenmaß in ha ein!":INP 
UT maß:PRINT:PRINT 
LET wert=maß*100000000 
PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" cm2!":GOTO 1000 

960 CLS:PRINT.PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in ha ein!":INP 

UT maß:PRINT:PRINT 

LET we rt*maß*1000000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT Das Ergebnis beträgt "wert" dm2!“:GOTO 1000 

970 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) “Bitte geben Sie das Flächenmaß in ha eln!":INP 

UT maß:PRINT;PRINT 

LET wert=maß*10000 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "===*====" 

PRINT "Das Ergebnis beträgt "wert" m2!":GOTO 1000 

980 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS (1 

0) "Bitte geben Sie das Flächenmaß in ha eln!":INP 

UT maß:PRINT:PRINT 

LET we rt=maß/100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" km2!":GOTO 1000 

990 CLS:PRINT:PRINT COLOUR (10) FONT (3) POINTS <1 

0) "Bitte geben Sie das Flächenmaß in ha ein!":INP 

UT maß:PRINT:PRINT 

LET wart=maß»100 

PRINT COLOUR (11) "Ergebnis" 

PRINT COLOUR (10) "========" 

PRINT "Das Ergebnis beträgt "wert" Ar!":GOTO 1000 

1000 PRINT COLOUR (12) FONT (3) "Erklärungen Läng 
enmaßtabelie Gewichtetabelle Flächenmaßtabelle 
INPUT p$ 


IF 

P$=' 

'e " 

THEN 

10 

IF 

P$=' 

' 1 " 

THEN 

20 

IF 

P$=' 

'o” 

THEN 

250 

IF 

P$=' 

’f " 

THEN 

570 
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Kleinanzeigen—i 


Biete an Software 


ACHTUNG!! ERWACHSENE 
8 Disk 5 1/4 oder 31/2 mit delikaten 
Programmen für IBM PC/Kompatible 
Nur DM 50 - VS/Bar. 

M. Karbach, Remscheider Str. 18, 

5650 Solingen G 


CBASIC Compiler für CPC 6128 
Originaldisk + Handbuch (450 S.) 
+ Einführungsbuch + Programme 
NP über 250,- VB 120,- 
Tel.: 077 23/18 59 (abends), 
nach Jörg fragen 


L0G0SCRIPT2 - FIBEL 

Tel.: 0 40/81 37 21 G 


CPC-PD SPIELE + Anwenderprg. 

Liste: 100 PF bei: Peter Breuker, 
Rektenstr. 10,4930 Detmold 1 


P E R P L E X ■ die professionelle Finanz¬ 
buchhaltung zum erstaunlichen Preis. 

Alle Auswertungen. Kontenzahl beliebig, 
DATEV-Kontenplan, nur 192,- DM 
BANKENSCHRECK 
- Neuberechnung von Darlehn nach neue 
stem BGH-Urteil und 20 weitere Finanzprg., 
98,- DM. JOYCE und IBM-Komp. 

Ass.-jur. Keilmann, Weilhelmstr. 71, 

4400 Münster G 


■■■■■■■■■■■■■■■■■■■ 

STEUERMAT: Lohn-und Einkommensteuer 88 
Ausdruck direkt auf die Antragsformulare, 
Analyse, Tabelle, alle Einkunftsarten, jähr¬ 
liche Aktualisierung (20,- DM) 89,- DM, 

FORMULARPRINT: 

DIN A4-Formularbearbe]tung, 40,- DM 
FIBUMAT: Einnahme/Oberschuß-Rech- 
nung, Kassenbuch, Kontenlisten, Ergebnis¬ 
abrechnung, USt.-Voranmeldung, Funktions¬ 
tasten frei belegbar, 142,- DM 
Für JOYCE: 3“ oder IBM-PC: 5,25“ u. 
3,5“ Demo: 15,- DM, Info: 80 Pf, RP 
FFSW, Farin, Elisabethstr. 65, 

4460 Nordhorn, Tel.: 05921/13757 
■■■■■■■■■■■■■■■ G 


ERNÄHRUNGSTEST + PERSÖNLICH¬ 
KEITSTEST MIT MÖGLICHKEIT ZUR 
DRUCKERAUSWERTUNG, auf wissen¬ 
schaftlicher Grundlage. 

Für CPC/DISK ODER CASS + 20,- DM 
an: A. KRAMER, WAGNERGASSE 60, 
3578 SCHWALMSTADT 


■■■■■■■■■■■■■■■■■■■ 

Sensationell CPC u. IBM-PC 
Von Lehrern im Deutschunterricht 
erprobt: Der intelligente 
Rechtschreibtrainer erfaßt alle 
Probleme der deutschen Rechtschreibung. 
Abstimmung auf individuelles 
Leistungsniveau möglich. Ausführliche 
Fehleranalyse. Preis: ab DM 59,-. Info: 

H. Gneiting, Postf., 7319 Dettingen/Teck 
■■■■■■■■■■■■■■■■■■G 


Für Joyce: Logoscript 2.16 dt. 

+ Printer Disc + Logospell 2 dt. 

= 150,- Starbase 90,- Multiplan 90.— 
Telefon: 08363/8354 


JOYCE Orig. Prowort DM 120,- 
Tel.: 02281326309 ab 18 Uhr 


CPC: Fibu, Compiler,... Liste DM 1,- 
R. Werthebach, Karlstr. 23, 3300 BS 


JOYCE: POLY-PROGRAMME 200- 
SONDERHEFTE 1/2/3 + DISCS 100.- 
PRGSAMML3 30,- CYRUS II CHESS 20,-. 
prakt. Textv. (Siebert) 50,-, PC-AMSTRAD INT, 
1987/1988 (24 HEFTE) 80,- 
ALLES ZUSAMMEN NUR DM 400,-. 
Manfred Jahreis, Harrisfeldweg 11, 

8000 München 45, Tel. 0 89/31168 36 


JOYCE-USER-GROUP in Styria: 
Die 10. Public-Domain-Disk. 
.SPRACHENTRAINER, ist er¬ 
schienen. Kostenlose Info 
über JUG-Styria und PD-Dis- 
ketten bei: JOYCE USER-GROUP 
in Styria, c/o Herbert Moschitz, 
Fach 96, A-8041 GRAZ 


CPC-464-6128 Spitzensoft zu 
kleinem Preis d. Spiele u. Anwenderprg. 
A, Entwicklung n. Wunsch 
Liste u. Info v. MR. HAPPY, PF 112052, 
8900 Augsburg. Tel.: 08 21/46 5711 


Public Domain & Free-Software. 
IBM/Schneider PC u. Kompatible. 

Disk, ab DM 1,80. Gratiskatalog. 

M. Karbach, Remscheiderstr. 18, 

5650 Solingen 1, Tel. 0212/43140 G 


SIND SIE KREATIV? Entwerfen Sie 
Motive für Mode, Stickarbeiten. 
Strickvorlagen o.ä.? Testen 
Sie STRICKEN, das Programm für 
das Design farbiger Rastergrafiken. Info frei! 
DEMO-Disk mit 

Handbuch 25 DM, Vollpreis 149 DM. 
Schäfer, Amselweg 6, 8056 Neufahrn 


Astrologie mit Computer 

International geschätzte Astro¬ 
logenprogramme, professionelle 
Deutungsprogramme, Lernprogramme 
für Anfänger, Handschriftanalyse, 
Bio-Rhythmus, Astro-I-Ging. 

Info gegen DM 2,- in Marken. 

Astron, K.W. Bonert, Peter-Marqu.-Str. 4a, 
2000 Hamburg 60 G 


Wirtschaftliche Programme 
für die Arztpraxis auf 
dem Schneider CPC. Joyce, PC 
Fa. EFFEKTA, Am Wiggert 9c. 

4500 Osnabrück, Tel. 0541/442416 G 


Klassen-Noten-Punkteverwaltung 

praxisnah, alle Klassen/Fächer 
Schnittberechnung/Gewichtung 
Listendruck und Bildschirmanz. 
Notenspiegel, einf. Menübedien. 

CPC, JOYCE ausf. Info 1.30 Porto 
Außerdem für JOYCE/PCW: 
komf. kompl. Vereinsverwaltung, 
einschl. Lastschrifteinzug usw. 

Claus Bernhold, Rommelstr. 31 
8783 Hammelburg 


CPC & JOYCE-PUBUC-DOMAIN 

Ein Info ist für 2 x 100 Pf erhältlich. 

PDI, Pf. 1118, D-6464 Linsengericht G 


Dias ordnen mit Computer 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing. W. Grotkasten, 

Birnenweg 6, 7060 Schorndorf 

Tel. 07181/42846 G 


EXPO-SOFT 

Immer aktuell und superschnell 

Public Domain & Free-Software 

IBM / Schneider PC + Kompatible 

Disk, ab DM 1,80 - Gratisinfo 

S. Schülke, Wuppertaler Str. 130, 

5650 Solingen 1. Tel.: 0212/591208 

G 

ENDLICH!! 

TIPPFEHLERSUCHPROGRAMM für 

Texte von Wordstar, Tasword, 
u.a. Läuft auf CPC/Joyce unter 

CP/M+ / 2.2. Selbstlernendes 
Wörterbuch. 3-'Disk. Preis: 69, DM. 
Maier Stefan, 

Friedrichstr. 34, 8000 München 40 

G 

dBASEII Programm (ca. 55K) für 

Archive aller Art (Video, Disk's 
usw): 45,- DM (inkl. JOYCE Disk) 

INFÖ gg. Rückporto: St. SCHMITT, 
Neuhoferstr. 4,8900 Augsburg 

G 

PD-SERVICE-LAGE bietet Ihnen: 
Public-Domain, Freeware und 

Shareware zum fairen Preis!! 

Disk 5 1/4“ 4,50 ■ 2,70 DM 

Disk 3 1/2" 6,40 - 4.70 DM 
Spezialgebiete: Deutsche Pro¬ 
gramme (ü. 420 Disk!) neuste! 
internat. Programme! PD-Share- 
wäre Spiele (ü. 220 Disk!!! 

Kat. f. IBM/kompat. g. 1,80 Porto 
PD-Service-Lage: Bernd Schulz, 
Hasselstr. 38,4937 Lage/Lippe 

G 

Biete Joyce Software dBase II. Logo- 
Script 2.16 engl., Dr. Graph, Dr. Draw, DTP, 
Wordstar, Multiplan, varDatll, Fibu, Faktu, 
Schablonen LocoScript, Busines-Star, Star- 
Mail, Supercopy, Chess, Fairlight, Bat- 
mann/Tomawk, Colossus 4/Cyrus II, Basic- 
Prgm. 2X, Leere Disk 5X, Diskettenbox 

IX. Tel.: 023 61/31030, ab 19.00 Uhr 

FUTURE-SOFT!!! 

Schreibt für SIE Programme auf 

Wunsch!! Info gegen 1,- DM (Mz.) 
bei I Bals, PF 80, 7184 Kirchberg 

PD-SERVICE-LAGE bietet Ihnen: 
Publik-Domain, Freeware und 

Shareware zum fairen Preis!! 
Kopierkosten: 4,50 - 2,70 DM!!, 
z.B.: PC-TEXT 2.0 v. R. Otter!!! 
ü 420 dtsch. Progr.! 220 Disk! 
PD-Spiele, neueste intern. PD! 

Kat.f. IBM/kompat. g. 1,80 Porto 
PD-Service-Lage: Bernd Schulz 
Hasselstr. 38 4739 Lage/Lippe 

Auch alles auf 3.5" lieferbar 

G 

Public Domain & Free-Software. 
IBM/Schneider PC u. Kompatible. 

Disk ab DM 1,80 DM Gratiskatalog 

M. Karbach - Remscheiderstr. 18. 

5650 Solingen 1, Tel.: 0212/43140 

G 

Anwenderprogr. für CPC und PC 
+ neues Wirtschaftssp. für CPC 

A. Hust, Deuchstr. 60,2876 Berne 

G 

BTX • Software-Textdecoder: 

87 DM für CPC 6128 und JOYCE 
Voraussetzung: RS232 und ein 

Dataphon s21-23d oder Modem. 

BTX-Zugang ohne Anmeldung. 

Tel.: 040/58 45 31/ PGiro 33 98 96-203 


CPC-Zubehör abzugeben: Spiele. 
Anwenderprogramme und Bücher. 
Tel. 04293/1330,13-18 Uhr. 


BONZO'S-SUPER-MEDDLER 

Das VIELSEITIGSTE U. UMFANGREICHSTE 
KOPIERPROGRAMM FÜR BAND¬ 
DISK-KOPIEN ! Auch für neueste 
SPEEDLOCK-Typen, Turbolader, 
CASSY-geschützte u. headerlose 
Programme. Mit über 900 Kopier¬ 
hinweisen (werden lfd. ergänzt) 
und ausführl. deutscher Anleitung 
auf 3-Disc nur DM 55,- + 

Versandk. Für alle CPC’s. Ausf. 

Infos gg. Freiumschlag von: SOFT¬ 
WAREVERTRIEB MÄRTINA HIPPCHEN, 
Postfach 100966. 5000 Köln 1 G 


PCW- CPC- PC-Spezial-Versand 

Farbbänder und Toner 
zu Traumpreisen! 

LISTE ANFORDERN! 


Sonderangebot 5/89 

Reinigungsdiskette 3“ 

zum Hammerpreis! DM 29,90 


MAXELL 3“ SUPERPREIS! 
10er Pack DM 57,90 


FLIPPER in 3 Sekunden von 

LocoScript 2 zu CP/M ohne 
Neustart. DM 128,- 


PCW 8256 / 8556 / 9512 Maus 

für DR Draw, DR Draw, DTP 
Basic, GSX, Stop Press, u.a. 
m. Benutzeroberf. DM 278,— 
Adapter erforderlich DM 39,- 


CPC SPIELE ZUM SONDERPREIS! 


PCW 8256/9512 + PC 1512/1640 

VDU Bildschirmfilter DM 69,- 


COMAL-80 MODUL FÜR CPC 


LocoScript 2.16 m D. Handbuch 
Loco Mail/Font/Spell/File 

Farbbandkassette PCW 9512 

Nylon schwarz DM 12,75 
Multistrike DM 11,25 
Carbon DM 10,45 

Druckerreinigungs-Set 8256 


PC 1512/1640 Zweitlaufwerk 
3,5“ DM 274,00 einbaufertig 
5,25“ DM 239,00 einbaufertig 
RAM-Erweiterung DM 189,00 


INFOLISTE KOSTENLOS! 


B. Welzel & Wunsch GbR. 

Swebenhöhe 47, 2000 Hamburg 72 
T. 0 40/6 43 64 47 BTX 0406436447 G 


Biete an Hardware 


CPC6128+DMP2000+FD1+51/4Laufw. 
820KB dBase+WordStar+Public-Domain 
Softw.+BTX-Modul+Stop-Press 
(Seitengestaltg) 25% unter Neupreis. 

Tel.: 0 48 64/9 99, ab 19 Uhr 


CPC 6128 Color 
+ ext. Diskettenlaufwerk 
+ 60 Stck. CPC International 
+ 20 Disk. Spiele -t- Anwendpr. 

+ 10 Stck. Bücher-Fachliterat. 

Preis: DM 1000-, Tel.: 09183/569 


5’89 PC 99 

















I Kleinanzeigen 


CPC 6128 Color + 15 Disk 850,- DM 
AMX-Mouse + OLP 175- DM 
PC International ab 5/86 75,- DM 
Tel ,:099 71/26 21 


20MB-Festplalte (Vortex) für Joyce 
780,- DM, Tel.: 052 32/66144 


CPC464 GT65/FFD1/dk'tronics 64k/ 
Drucker DMP2160/Viele EXTRAS -, 
sehr preiswert • 10 Monate • 1200,- DM 
Tel.: 07143/22343 -ab 17 Uhr 


Lichtgriffel nur DM 49,- 

Versand gegen Scheck/Nachnahme. Info 
gratis! Computer bitte angeben! Anschluß 
an jeden(!) Computer möglich, Standard¬ 
version für Schneider lieferbar. Firma 
Schißlbauer Postfach 1171R, 8458 Sulzbach 
09661/6592 oder 0941/999951 bis 21 UhrG 


BTX-Modul für CPC 464 zu verkaufen. 
Tel. 09190/1294 


\ferkaufe CPC 6128 Color + Drucker 
DMP 2000, KPL. DM 1.300,-. Nur CPC 
DM 1.000,-. Tel.: 0211/39 28 32 


CPC 6128 + Vortex 5 1/4“, viel Software, 
Databox kpl./einzeln, 0911/7611 29 


Verkaufe NLQ 401 mit defektem 
Druckkopf. Tel.: 0 73 45/2 12 40 


CPC 6128 grün + 5 1/4-Floppy + Soft¬ 
ware + Lit. VB 800, DM, 09369/1750 


Verkaufe CPC 464 + Farbmonitor 
+ Floppy + Kassetten + Discs 
Bernd Rickert, Tel.: 07192/6489 


CPC 464 mit Vortex-Speichererw. 
Farbb. 5 1/4-Doppelfloppy, Literatur, 
Programme, PC-International ab 1986, 
VB 990,-. Farbdrucker Okimate20 
VB 350,-. Tel. 07042/13145 


CPC 6128, grün, 5 Zoll Zweitfloppy 
doppelseitig, StarWriter I, V3.1 
ProDesign (Desktop-Publ.) Pascal 
GigaCad, 7 3-Disks m. Box, uvam. 

VB 1.500 DM. T. 07153/51821, ab 17 Uhr 


Verk. div. HW, SW, Lit. f. CPC 464 zB 
Dob 256k, Floppy 5,25“ + Contr. Ab 
23.03.89 (vorher nur Vormerk.). 

Tel.: 06074/99293 


BTX - Modul f. CPC wg. Systemwechsel 
z. verk. Preis VS. Tel.: 0551/77001 77 


JOYCE 8256 komplett m. Literat, 
div. Programme ca. 30 Leerdisketten 
VB Preis auf Anfrage 
J. Weise. 069/717 47, 
ab 18 Uhr 069/5484660 


Gebrauchtcomputer mit Garantie 
AMSTRAD - SCHNEIDER - PEACOCK 
CPC, JOYCE, PC, XT, AT 
HARDWARE - SOFTWARE - LITERATUR 
Ersatzteile & Reparaturdienst 
ALLES zu echten Superpreisen. 
Ständiger Ankauf 
Höchstpreise für Ihren “ALTEN“ 
bei Computer NEUKAUF!!! 

Katalog anford. (2,- DM in Marken) 
EDV-CLOOTS, 5132 Übach-Palenberg, 
Zeisstr. 7, Tel.: 02451/46608 G 


DD1 mit CP/M u. LOGO, 10 Leer¬ 
disketten u. 2. Progr. für DM 450,— 
M.Ströhle, Tel.: 069/56 9183 


Verk. CPC 6128 Farbe, DMP 2000, 

2. Floppy FD1, Turbo Pascal 3.0, 
viele Spiele, Bücher, Zeitschr. 
kompl. DM 1.200,-. Tel. 0251/51201 


Vortex-Doppellaulwerk f. 464 
500,- Speichererw. 512KB 200,- 
dBase. Wordstar je 50.-, 0421/71755 


Wegen Systemwechsel verk. ich 
CPC 6128 + Color + DD1 + DMP 2000 
+ Joyst. + 12 versch. Spiele + 20 
Leerdisk. + 25 versch. CPC- 
+ Sonderheft + 5 versch. CPC Bücher 
NP 3.300,- VP 1.499,- 
Tel.06121/508681 


ASD-20MB-HARDDISK f. JOYCE + PCW, 
Software neuwertig. Tel:055 31/4553, 
ab 18.00 Uhr 13039, Preis: VB 


CPC464, Farbe, SP 512,40 Disc, 50 Zeitschr. 
viel Software, VB 1250 DM, Tel. 0291/58195 


CPC 664 (Farbe), viel Zubehör 
Software, abzugeben (VHB 700) 
Tel.: 0 67 09/61 93 ab 18 Uhr 


CPC 6128 mit GT 65 
+ NLQ 401 
+ div. Literatur + 
Zeitschriften DM 850,— 
Tel.: 0041/033/751155 


CPC 464 + Farbe + Kass + DDI-1 + 
Sprachsynth. + Fischert-Interf. + 21 Discs 
+ 24 Kassetten, Anwender- u. Spieleprg. 

+ Bücher + Zeitschriften. 

Günstig zu verkaufen. 

Tel. 0521/76553 


JOYCE m. 512K, Druckerverl. PCI 
1/86 - 2/89, viel Literatur, SW + Util., 
21 Disk, DM 1.250,- 
Tel. 084 31/4 58 03 (ab 17 Uhr) 


JOYCE-PLUS, 512 KBRAM, 2. LW 720KB 
formatiert + T.-Pascal 3.0 + DBII + 
Dictionary-Set (engl) + PC Int. ab 1/88 
+ Databox 2/88 7/88. 

VB DM 1.300,-. Tel. 06504/692 


PCW 8256 + Mouse, Joystickcontr. 
u.a. Zubehör. Tel.: 05331/621 93 


CPC-lnt. 1. Jahrgang 85 kompl. 
Fischer-Technik-Interface für 
CPC 464 dBase II für PC gegen 
Geb. zu verk. Tel.: 06021/28594 


Verk. CPC 464 grün + DDI + Vortex 
512K Erw. + Drucker + Prog. dBase II 
+ ComPack + TexPack + div. Programme 
+ Fachbücher Tel.: ab 20 Uhr 
064 09/9389, auch Einzelverkauf 


Suche Software 


SUCHE: CHIP-Spezial T.-P.-Software 
H. 5-11 

VERKAUFE; div. Software + Bücher 
u.a. Masterfile 8000 (Rel. Datenb.) 
Mini-Office-Prof. (Int. Paket), 

Div. Databoxen LOCOSCRIPT 2.16 
Tel.: 02227/2511 


Suche Programm für CPC 6128 
nur zum Schreiben von Rechnung 
für kl. Handwerksbetrieb 
R. Voss, Blotterstr. 5. 7500 KA-41 


Welches Prog. für PCW kann 3 1/2- 
MS-DOS-Disk lesen? 021 51/779970 


!!! Suche Software für JOYCE !!! 
!!! Thomas Brischle!!! 
Feuerwehrstraße 10, 7630 Lahr 


Suche Hardware 


Suche für CPC 464 Hard-Disk WD-20 
von Vortex. Tel. 0221/8908732 


MIDI-INTERFACE für CPC 6128 
gesucht. Angebote an W. Egger, 
Zugspitz 11, 8190 Wolfratshausen 


Suche MP-1. Chiffre 89/00100PC 


Verschiedenes 


AMSTRAD PC 1512/1640 USER-CLUB 
bietet mtl. Zeitschrift, Software, 

Hilfe und mehr für alle. 

Inf. gg. Rückp. von Rolf Knorre, 

Postf. 20 01 02,5600 Wuppertal 2 


VK oder Tausch: Werner + Wordstar 
für 6128 gegen JOYCE-Progr., 

Suche deutsche Anl. für Desktop- 
Publisher-PCW Tel.: 064 24/22 78 


DISKOMAN, der tolle Lesespaß 
auf 3-Diskette (CPC/PCW) zum 
Testpreis: 10,- DM. HARY, 
Gärtnerstr. 14.6602 Dudweiler. 


USER-CLUB FÜR JOYCE-ANWENDER ! 

Info gegen 80 Pf. Rückporto von: 
JOYCE-USERCLUB c/o Je. Berghof. 
Roseggerstr. 5,5600 Wuppertal 2 


Verkaufe CPC 464 grün + Floppy + 
MP2 + Bücher, Kass +■ Diskett. VB 
Preis 900,- DM. Tel.: 051 76/7294 


Joyce-DTP: Scanner + Software 
(MasterScan, MasterPaint); ESLightpen 
+ ES-Newsdesk mit div. Schriftdisk. 

Tel.: 0651/80327 


Raum Schleswig, Joyce-User und 

Club, wer tauscht Erfahrungen 
und gibt "Neuling" Tips? 

Tel: 046 21/2 31 01 oder 2 26 20 


Verkaufe PC-Schneider-lnt. Heft 
3/86 bis 1/88 (23 Ausg.) + Joyce- 
Sonderheft Nr. 1. Tel. 02307/38147 


Verkaufe Bücher: Praktische 
Textverarb. JOYCE + Disk DM 40,— 
M&T: CP/M+; Dr. LOGO, Dr. JOYCE 
Buch, JOYCE ProgTricks, Mallard 
BASIC Handbuch engl,; ä DM 20,- 
15 Magazine: APCW engl. 88/89 
DM 40,-; 28 Mag.PC Int. 1987/88 
DM 70,-. G. Neubauer, Golfplatzstr. 8, 
A-4040 Puchenau 


Suche Unterlagen für Floppy 
TEAC FD-55FV. P. Hirschberg, 

Haus-Nr. 25 1/2,8069 Schmiedhausen 


Disketten-, Datenkonvertierung 
JOYCE, CPC u.a. auf MS-DOS oder 
ATARI kopieren. Umwandlung von 
LOCOSCRIPT und WordStar-Texten 
in 1stWord+ und BECKERtext ST 
Texte inkl. Textattribute. Info 
bei: Bernd Drost, Schulstr, 67 
6382 Friedrichsdorf, 0 6175/6 04 G 


Tausch 


TRU THE REBEL UNIVERSE 
is looking for newest stuff! RLK 150 
Greetings: 8958 Füssen MTI-CUG-ACS 


Club 


Coburger Computer Club e.V. 
z. Hd. des 1. Vorsitzenden 
Peter Stöhr 
Adamistr. 6 c 
8630 Coburg 
Tel.: 09561/34535 


Christian Röhr 
Postfach 11 27 
3501 Schauenburg 1 


Sven Kapke 
Suederfeld 6 
2241 Doerpling 


A. R. N. O. L. D. Computerclub 
Haye Mutert 
Flensburgerstr. 79 
2300 Kiel 1300 


Das ist 
Ihre 

Chance.. 

Schon eine Kleinanzeige bringt 
oftmals großen Erfolg und hilft, 
neue Kontakte zu knüpfen. 

Nutzen Sie unser Angebot und 
profitieren Sie von der Tatsache, 
daß unsere Zeitschrift 
»PC INTERNATIONAL« 
jeden Monat von mehreren zig¬ 
tausend Computer-Interessierten 
gelesen wird. 

Möchten Sie etwas verkaufen, tau¬ 
schen, oder suchen Sie das »Tüp¬ 
felchen auf dem i« - dann sollten 
Sie die eigens hierfür bestimmte 
Bestellkarte im Heft ausfüllen und 
an unseren Verlag absenden. 

Ihre Annonce erscheint dann in 
der nächsten Ausgabe. 

Wir möchten ausdrücklich darauf 
hinweisen, daß wir keine Anzei¬ 
gen veröffentlichen, aus denen er¬ 
sichtlich ist, daß es sich hierbei 
um Veräußerungen von Raubko¬ 
pien handelt. 

Des weiteren machen wir darauf 
aufmerksam, daß indizierte Com¬ 
puterspiele nicht in Form von An¬ 
zeigen beworben werden dürfen. 

Die Redaktion 
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Händlerverzeichnis | 


Berlin B Kassel/Vellmar 


Ihr Computer-Partner für 


’Cs/ATs-C 64/128 
Amiga-PCW 
Computer • Drucker 
Zubehör-Software 
Spiele-Service 

W. Müller & J. Kramke GbR 
Schöneberger Str.5 -1000 Berlin 42 
Tel. 030-752 91 50/60 

Mo.-Fr. 10-18 Uhr. Sa. 10-13 Uhr 

’mükra 

DATEN-TECHNIK 


▼ _ Mm yM 

Computerei y 



temoemoie: Djnm 12ü\v^ 
»00 Betlir « 

Am U Bnl lemuBüiol 
1e; 7 52 20 9'. 


Castrop-Rauxel 


EUE GUTE IOEE NACH DER ANDEREN ,c 

Schuster Electronic 

(omiiHi cc*»*ju* * fticn 

C Schneider 

Vertrags handlet 

ft Commodore 

Vertragswerkstatt 
Obere Munsterstr 33 4620 Castrop • Rausei (02305)37 



Düsseldorf 


Schneider 


rnmoi itco nn iicihn 
l uilruiCK unsi-nun 


Beratung 
Vertrieb 
Service 

BÜRO-ORGANISATION DATENTECHNIK Verluebsgesellschall mbH 
4000Düsseldorf I Fnedenstiaße 13 Tel 0211/308071 



AMSTRAD/SCHNEIDER 



Holländische Str. 121,3502 Vellmar, Tel.: 05 61782 81 60 


Löhne/Ostwestfalen 



Canpuis- S Sollwarttentfum li,- NwcdeuBclftrid 
AMSTRAB-, SCHNEIDER & VORTEX R«gcnalMl>dlB> 4 SERVICE- 
CENTRALE, Sinti Ccnputoi, Drucks- Psrohuiis & Zuashdf 
v. A-Z.EDV Pjperetc. • Discs 

Fnlz OBERWEIER COMPUTER-TELEFAX-BTX-HiFi-VIDEO-T'/- 
-NEC-EPSON-TANDON-8ROWER-SEIKO-OKI-STAR-LOCO-ctC 
am 3ahPhol*8ündc' Strafe 20-4972 LÖHNE viel 05732 61263246 


Nürnberg 



Soltau 


AUTORISIERTER FACHHANDLER DER MARKEN 


AMSTRAO 



'!! IQhter Ulli 1 A -il:il Mi oben gesamter Hf-stellerl flulrn Sie ans an' f-ajei 
Se nach unseren Preis! Wir Helen solo", j:: ..agsil SßinoP elerung per UPS! 


AWSIRAO CPC. PC*V PPC PC W, 3E8 DM® 
Schneider Euro PC TOWER AT, SPnnBi 
SW LC 10 LC24-:0. N8 24-10 
ViCUr Compctm 


FarbliAncci und ZuMhbi! Oiskellen IU. 1 und MAXELL ab .ACER 
Ruten Sie uns an 1 Frager Su: nach unsersm aktuellen °ra,s' 
Sem lll ehe Anltagen kdimen eiiici nlcltl benjcksicnligl «erden' 

mmmm, unikat COMPUTERVERTRIEB 


unikat 


MUHLENSTR. 2 D - 3040 SOLTAU 
TEL. (O Bl 01) 1 32 44 - TAO UND NACHT 


Basel 


Hamburg 


• 

• 

• 

• 

Koste 

• 

• 

• 

• 

• 

• 

Computer 

• 

• 

• 

PC Hard- und Software 


• 

Branchen- u. Sonderlösungen 

• 

« 

• 

Microsoft AMSDMD Siemens 

• 

• 

• 

- Vertragshändler — 

• 

• 

2HH70 • Wandsbeker Zollstr. 98 

• 

• 

S 6560036 • Fax 6567457 

• 


AMSTRAD/SCHNEIDER 

Vertragshändler 

Computer Knüppel AG 

Computer und Büromaschinen 
Riehenring 81 (MUBA) 

4058 Basel 

Telefon (0 61)691 12 62 
Fax (061)6910051 


Zürich 


AMSTRAD/SCHNEIDER 

Elmega AG - CH-8910 Affoltern 
Info: Tel.01-761 1760 


Eintragungen 
im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 
6, - DM bei einer 
Spaltenbreite von 
58 mm. 

Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 

Nähere Informationen: 

DMV-Verlag 
Wolfgang Brill 
Telefon (05651)8009-51 


Anzeigenschluß 
für die 

Ausgabe 7/89 
von 

PC International 
ist der 

16.5.89 

Erscheinungstermin 
ist der 

28.6.89 


5’89 PC 101 





















































































[—Vorschau 


Viele Leser fragten da¬ 
nach, nun ist sie da. 
Die Videoverwaltung 
fiir den CPC. Ab so¬ 
fort haben Sie jeden 
Film unter Ihrer Kon¬ 
trolle. 
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»PC International« 
erhalten Sie ab 
31. Mai bei Ihrem 
Zeitschriftenhändler 


CPC-Programme: 

Video im Überblick 

Für unsere Filmfreunde bieten wir in der 
nächsten Ausgabe eine komfortable Video¬ 
verwaltung an. die das Archivieren verein¬ 
facht. 

Der Denker 

Kombinieren Sie gerne? Dann dürfen Sie 
keineswegs die nächste Ausgabe versäu¬ 
men, denn dort finden Sie für den CPC ein 
Kombinationsspiel erster Güte. 


Tips und Tricks: 


Haben Ihnen die 1-kByte-Programme zu¬ 
gesagt? Dann sollten Sie unbedingt die 
nächsten Programme sehen. Gute Pro¬ 
gramme müssen nicht immer lang sein. 

Sie besitzen einen CPC 6128 und möchten 
gerne die zweite RAM-Bank ausnutzen? 
Wir geben Tips. 

Eine kleine Hardcopyroutine für einen in¬ 
teressanten Ausdruck. 

Und weitere Tips und Tricks für Ihren 
Rechner. 


PCW: 


Leserbefragung 

Wir möchten gerne einige Dinge über Ihren 
Computer wissen. Wenn Sie einen der tol¬ 
len Preise gewinnen möchten, machen Sie 
einfach mit. 



hu Test: Fine Public-Domain-Benulzeroberflä- 
che fiir den PCW/JOYCE. 


Billige Programme erwarten Sie im Public- 
Domain-Bereich. Wir haben die interessan¬ 
testen Programme getestet. 


Bericht 


Wir berichten über den Public-Domain- 
Markt. Welche Programme für den CPC, 
PCW oder den PC zu erhalten sind, erfah¬ 
ren Sie in der nächsten Ausgabe. Eine 
Übersicht der besten Programme rundet 
das Thema ab. 


Hardware: 


Im Test: 

Ein Diskettenlaufwerk der Firma ACW- 
Soft. Welche Vor- und Nachteile Sie er¬ 
warten, lesen Sie in der nächsten PC 
AMSTRAD. 


PC: 


Im Test: GEMCAP 

Endlich ist es möglich, GEM-Bilder ’ein- 
zufangen’ und abzuspeichern. 

Wir bringen Ihnen einige Tips und Tricks 
bei, die Umgang mit dem PC um einiges in¬ 
teressanter werden lassen. 



Unser Terminkalender für den PC läßt Ihnen 
keine Chance mehr, Ihre Termine zu vergessen 

Vertrauen ist gut, aber Kontrolle ist besser. 
Glauben Sie, daß Sie all Ihre Termine im 
Kopf haben? Wahrscheinlich nicht. Darum 
ist es unumgänglich, eine genaue Kontrolle 
über die Verabredungen zu besitzen. 

Mit unserem Terminkalender kein Pro¬ 
blem... 


Die Inserenten 
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Das Software-Experiment 

für CPC 464 / 664 / 6128 

Autor: Matthias Uphoff 

Die erfolgreiche Serie aus PC International jetzt in Neuauflage: 10 abenteuerliche Ausflüge 
in die Welt der Computergrafik, Simulation und Künstlichen Intelligenz mit insgesamt 
17 Programmen auf Diskette/Kassette und einem umfangreichen 180-seitigen Handbuch! 


Unter anderem bietet das Software- 
Experiment: 

Komplexe Grafik: Ein komfortabler Fraktal-Generator 
für den CPC 

Das Spiel des Lebens: Nach einem einfachen Prin¬ 
zip wachsen auf dem Bildschirm farbige Kristallmuster: 
Sehen und staunen! 

Das Ökologie-Experiment: Gestalten und erfor¬ 
schen Sie die Gesetzmäßigkeiten eines künstlichen klei¬ 
nen Lebensraumes, der in animierter Farbgrafik darge¬ 
stellt wird. _ 

Der Computer als Stratege: Ein ausgeklügeltes 
System macht den CPC zu einem starken Gegner im 
japanischen Gobang-Spiel. Verbessern Sie die Spiel¬ 
stärke durch Abändern der Zugbewertung! 

Mit roher Rechengewalt: Mit einem “Brute-Force“- 
Algorithmus spielt Ihr Rechner in einem afrikanischen 
Bohnenspiel alle menschlichen Gegner an die Wand — 
oder können Sie ihn schlagen? 

Der Computer lernt: Bringen Sie Ihrem CPC 
“spielend“ Minischach bei. Mit jeder Partie wird das 
Programm ein bißchen besser... 

Wordmaster: eines der intelligentesten Programme 
des Software-Experiments: Raten Sie ein Wort, das sich 
Ihr PC ausgedacht hat — und das ist eigentlich nichts 
besonderes. Aber dann rät der Rechner ein Wort, das Sie 
sich ausgedacht haben! Wer braucht weniger Versuche? 
Sie werden sich wundern... 


Wortketten: Mit einer raffinierten Methode löst der 
CPC Wortketten-Rätsel — oder er erfindet neue Rätsel, 
ganz wie Sie wollen! 

Entwicklungshilfe per Computer: Verbessern Sie 
in einer aufwendigen Simulation als Entwicklungshelfer 
die Lebensbedingungen eines Volkes in der Savanne 
Afrikas. Seuchen und Hungersnöte drohen, und Ihre 
Mittel sind begrenzt... 

Pascal läßt grüßen: Ein erstaunlich einfaches Pro¬ 
gramm enthüllt verborgene Strukturen im Pascal'sehen 
Dreieck und stellt Sie grafisch dar. 



GOBANG-Spiel 



ÖKOLOGIE-Experiment 


Kassette 

Best.-Nr. 212 


3“ -Diskette 

Best.-Nr. 213 


59.- DM (unverbindliche Preisemptehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
Inland: Ausland: 

Einzelpreis 59,- DM Einzelpreis 59,- DM 

zzgl. Versandkosten 3,- DM zzgl Versandkosten 5,- DM 

Endpreis 62,- DM Endpreis 64,- DM 


69,- DM (unverbindliche Preisempfehlung) 

Wenn Sie über den DMV-Bestellservice bestellen, gilt folgendes: 
Inland: Ausland: 

Einzelpreis 69,- DM Einzelpreis 69,- DM 

zzgl, Versandkosten 3,- DM zzgl. Versandkosten 5,- DM 

Endpreis 72.- DM Endpreis 74.- DM 


Doch das Software-Experiment ist weit mehr als ein außerordentlich vielseitiges Programmpa¬ 
ket: Das Handbuch vermittelt auf anschauliche und unterhaltsame Weise, welche Datenstruktu¬ 
ren und Algorithmen dem CPC phantastische Grafiken und verblüffende Intelligenzleistungen ent¬ 
locken. Der ideale Lehrgang für den angehenden Top-Programmierer — hervorragend geeignet 
für den Informatik-Unterricht an Schulen! 


— Bitte benutzen Sie die Bestellkarte — 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 

































Superpack 

Nr. 1-5 

5 Stück = 35, -DM 

Best.-Nr.: 33 


Fast alles wird heute teurer, da ist es 
doch erfreulich, wenn wir Ihnen etwas 
zeigen, was bei glelchblelbender Quali¬ 
tät preiswerter wird: Unsere CPC-Son- 
derhefte 1-5. Sie bieten Ihnen alles, 
was den Prozessor Ihres CPC höher tak¬ 
ten und Ihr Herz höher schlagen läßt. 
Nicht nur Informationen rund um den 
CPC, nein, auch Super- Software zum 
Abtippen, Super-Hardware zum Nach¬ 
bauen. 

*** insgesamt über 1 Mega Byte an Pro¬ 
grammen *** bekommen Sie für den sa¬ 
genhaft günstigen Preis von OM 35, -. 
Hier ein kleiner Überblick über diese 
Fundgrube an Computerspaß: 

- Anwendungen: 

Relative Dateiverwaltung, BASIC-Erwei- 
terungen, Datenfernübertragung 
Floppyprogrammierung, Diskettenmont¬ 
tor, Soundprogramm. 

- Hardware: 

Anschluß von Zweitfloppies, Bauanlei¬ 
tungen rund um den CPC. 

- Spiele: 

Abenteuer, Actfon, Knobeln, Rollensple- 
le. Tips und Hinweise, falls Sie mal 
nicht weiterkommen. 

- Tips und Tricks: 

Alles über CPC 464/ 664/ 6128, CP/M, 
Assembler. 

Und das Ist nur ein kleiner Querschnitt 
der großen Programmvielfalt der CPC- 
Sonderhefte 1 - 5. 

Also, wenn Sie den Zug nicht verpassen 
wollen - kaufen Sie sich geballte CPC- 
Informatlon zum Sonderpreis. 


Jetzt wird es aber 
höchste Eisenbahn,... 



...daß Sie endlich 
unsere CPC-Sonder- 
hefte kennenlernen! 



Kraftfutter für Ihren 
CPC - jetzt zum 
günstigen Preis. 





Sonderheft 6/88 

Grundlagen, viele Tips, nützliche Anwendungen und 
tolle Spielprogramme - ein Muß für jeden CPC-Anwen- 
der. Dieses Sonderheft behandelt das gesamte Spek¬ 
trum möglicher CPC-Einsatzgebiete und bietet Informa¬ 
tionen für jedermann. U.a. komplette Lagerbuchfüh- 
rang, relative und sequentielle Datei, neues Disketten- 
DOS, viele Lemprogramme, CP/M und Turbo Pascal 
und, und, und... , 

Best.-Nr.: 312 14,- dm 


Sonderheft 7/88 

Wieder eine Fundgrube für CPC-Besitzer: 

Music-Star ist ein tolles Soundprogramm, machen Sie 
Ihren CPC zum Synthesizer. Spiele wie CÖSMIC, AUXI- 
LIA, SUPERTRON 3D werden Sie In Atem halten. Tips 
und Tricks rund um die CPCs in Assembler, CP/M und 
BASIC. Ein Sprachsynthesizer zum Nachbau, Grundla- 

3 en über die Floppy- Programmierung - alles das fin- 
en Sie Im Sonderheft 7. 

Best.-Nr.: 313 14,- DM' 
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Grundlagen: Nnfl 

Alles über Floppy- 
Programmierung 

Spiele: 

30-TVon 

Auxllla - Im Reich der Magie 

Anwendungen : 

Musikprogramm de Luxe 
Chemie - ganz einfach 


Viele Tips und 
Ergänzungen 


Tips & Tricks : 

Stark: 

Baslc-Programms 

verkürzen 


Hardware 


Sprachsynthesizer 
de Luxe 




* ÄtÄSXSÄ 111 der bes,ell,en Programme berechnen wir für das Inland 3.- DM bzw. für das Ausland 5,- DM Porto und Verpackung 

Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag Postfach 250 3440 Eschwege 


























